! Program Example from "Essential Fortran 90 & 95" by Loren P. Meissner
! Copyright 1996. Copying for sale requires permission from the author.
! Otherwise, distribution is permitted if these three lines are included.

! Exercises 2.3, Number 11.
  program C3X11
    implicit none
    real, parameter :: X = -9.99
! start program C3X11
    write (unit = *, fmt = *) aint( X ), anint( X ), ceiling( X ), &
      floor( X ), int( X ), nint( X )
    write (unit = *, fmt = *) modulo( 5, -3 ), min( -123, -122, 56789, 0 )
    write (unit = *, fmt = *) sign( X, 0.0 ), sign( X, -0.0 ), sign( X, +0.0 )
    stop
  end program C3X11

