test_preprocess.F90 706 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051
  1. MODULE Available
  2. ! no conent
  3. END MODULE
  4. PROGRAM PPTEST
  5. ! value of InPPFalseBranch ; values of SkipToEnd
  6. ! 0 <empty>
  7. #ifndef FOO
  8. ! 1 ; <0>
  9. USE NotAvailable
  10. # ifndef FOO
  11. ! 2 ; <0,0>
  12. USE NotAvailable
  13. # else
  14. ! 2 ; <0,0>
  15. USE NotAvailable
  16. # endif
  17. ! 1 ; <0>
  18. # ifdef FOO
  19. ! 2 ; <0,1>
  20. USE NotAvailable
  21. # else
  22. ! 2 ; <0,1>
  23. USE NotAvailable
  24. # endif
  25. ! 1 ; <0>
  26. #else
  27. ! 0 ; <0>
  28. USE Available
  29. # ifndef FOO
  30. ! 1 ; <0,0>
  31. USE NotAvailable
  32. # else
  33. ! 0 ; <0,0>
  34. USE Available
  35. # endif
  36. ! 0 ; <0>
  37. # ifdef FOO
  38. ! 0 ; <0,1>
  39. USE Available
  40. # else
  41. ! 1 ; <0,1>
  42. USE NotAvailable
  43. # endif
  44. ! 0 ; <0>
  45. #endif
  46. ! 0 ; <empty>
  47. #include "test_preprocess.h"
  48. END PROGRAM