tools/fortran_2003_ieee_test.F

   1       PROGRAM fortran_2003_test
   2
   3       USE , INTRINSIC :: IEEE_EXCEPTIONS
   4
   5       IMPLICIT NONE
   6
   7       TYPE bunch_of_stuff
   8          INTEGER,POINTER,DIMENSION(:) :: i
   9          REAL   ,POINTER,DIMENSION(:) :: x
  10          LOGICAL,POINTER,DIMENSION(:) :: l
  11       END TYPE bunch_of_stuff
  12
  13       TYPE outer_wrapper
  14          TYPE(bunch_of_stuff), ALLOCATABLE, DIMENSION(:) :: ddt_things
  15       END TYPE outer_wrapper
  16
  17       TYPE(outer_wrapper), DIMENSION(15) :: combo
  18
  19       REAL :: x , y , z
  20       INTEGER :: return_code
  21       CHARACTER (LEN=256) :: my_shell
  22
  23       x = 1.e+10
  24       y = 1.e-10
  25       z = x + y
  26
  27       ALLOCATE(combo(1)%ddt_things(10))
  28       ALLOCATE(combo(2)%ddt_things(10))
  29       ALLOCATE(combo(3)%ddt_things(10))
  30
  31       CALL IEEE_SET_FLAG ( IEEE_INEXACT , .false. )
  32
  33       CALL GET_ENVIRONMENT_VARIABLE ( NAME="SHELL" , VALUE=my_shell ,   &
  34      &                                STATUS=return_code )
  35
  36       PRINT *,'x,y,z = ',x,y,z
  37       PRINT *,'SHELL = ',TRIM(my_shell)
  38
  39       FLUSH (UNIT=6)
  40
  41       STOP
  42       END PROGRAM fortran_2003_test