cmake/Tests/FortranModules/test_preprocess.F90

54 lines
724 B
Fortran
Raw Normal View History

MODULE Available
2018-04-23 21:13:27 +02:00
! no content
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>
2015-08-17 11:37:30 +02:00
USE PPAvailable
2009-05-01 17:43:35 +03:00
#include "test_preprocess.h"
END PROGRAM