Tests/Fortran/test_preprocess.F90

   1 MODULE Available
   2 ! no conent
   3 END MODULE
   4
   5 PROGRAM PPTEST
   6 ! value of InPPFalseBranch ; values of SkipToEnd
   7 ! 0 <empty>
   8 #ifndef FOO
   9   ! 1 ; <0>
  10   USE NotAvailable
  11 # ifndef FOO
  12     ! 2 ; <0,0>
  13     USE NotAvailable
  14 # else
  15     ! 2 ; <0,0>
  16     USE NotAvailable
  17 # endif
  18   ! 1 ; <0>
  19 # ifdef FOO
  20     ! 2 ; <0,1>
  21     USE NotAvailable
  22 # else
  23     ! 2 ; <0,1>
  24     USE NotAvailable
  25 # endif
  26   ! 1 ; <0>
  27 #else
  28   ! 0 ; <0>
  29   USE Available
  30 # ifndef FOO
  31     ! 1 ; <0,0>
  32     USE NotAvailable
  33 # else
  34     ! 0 ; <0,0>
  35     USE Available
  36 # endif
  37   ! 0 ; <0>
  38 # ifdef FOO
  39     ! 0 ; <0,1>
  40     USE Available
  41 # else
  42     ! 1 ; <0,1>
  43     USE NotAvailable
  44 # endif
  45   ! 0 ; <0>
  46 #endif
  47 ! 0 ; <empty>
  48
  49 #ifdef BAR
  50   PRINT * , 'BAR was defined via ADD_DEFINITIONS'
  51 #else
  52   PRINT *, 'If you can read this something went wrong'
  53 #endif
  54
  55 END PROGRAM