56 lines
806 B
Fortran
56 lines
806 B
Fortran
|
MODULE Available
|
||
|
|
! no conent
|
||
|
|
END MODULE
|
||
|
|
|
||
|
|
PROGRAM PPTEST
|
||
|
|
! value of InPPFalseBranch ; values of SkipToEnd
|
||
|
|
! 0 <empty>
|
||
|
|
#ifndef FOO
|
||
|
|
! 1 ; <0>
|
||
|
|
USE NotAvailable
|
||
|
|
# ifndef FOO
|
||
|
|
! 2 ; <0,0>
|
||
|
|
USE NotAvailable
|
||
|
|
# else
|
||
|
|
! 2 ; <0,0>
|
||
|
|
USE NotAvailable
|
||
|
|
# endif
|
||
|
|
! 1 ; <0>
|
||
|
|
# ifdef FOO
|
||
|
|
! 2 ; <0,1>
|
||
|
|
USE NotAvailable
|
||
|
|
# else
|
||
|
|
! 2 ; <0,1>
|
||
|
|
USE NotAvailable
|
||
|
|
# endif
|
||
|
|
! 1 ; <0>
|
||
|
|
#else
|
||
|
|
! 0 ; <0>
|
||
|
|
USE Available
|
||
|
|
# ifndef FOO
|
||
|
|
! 1 ; <0,0>
|
||
|
|
USE NotAvailable
|
||
|
|
# else
|
||
|
|
! 0 ; <0,0>
|
||
|
|
USE Available
|
||
|
|
# endif
|
||
|
|
! 0 ; <0>
|
||
|
|
# ifdef FOO
|
||
|
|
! 0 ; <0,1>
|
||
|
|
USE Available
|
||
|
|
# else
|
||
|
|
! 1 ; <0,1>
|
||
|
|
USE NotAvailable
|
||
|
|
# endif
|
||
|
|
! 0 ; <0>
|
||
|
|
#endif
|
||
|
|
! 0 ; <empty>
|
||
|
|
|
||
|
|
#ifdef BAR
|
||
|
|
PRINT * , 'BAR was defined via ADD_DEFINITIONS'
|
||
|
|
#else
|
||
|
|
PRINT *, 'If you can read this something went wrong'
|
||
|
|
#endif
|
||
|
|
|
||
|
|
END PROGRAM
|