C.1.3 F2003_Utils Module Unit Test Program

This lightly commented program performs a unit test on the F2003_Utils Module.

program Unit_Test

  use Caesar_Intrinsics_Module
  use Caesar_F2003_Utils_Module
  implicit none

  type(integer) :: i
  type(character,80) :: Argument

  ! Testing statements.

  write (6,*) ' '
  write (6,100) 'Command_Argument_Count =  ', COMMAND_ARGUMENT_COUNT()
  do i = 0, COMMAND_ARGUMENT_COUNT()
    call GET_COMMAND_ARGUMENT (i, Argument)
    write (6,100) 'Argument ', i, ' =              ', TRIM(Argument)
  end do

100 format (' ', a, i2, :, a, a)

end