test_preprocess.F90 724 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253
  1. MODULE Available
  2. ! no content
  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. USE PPAvailable
  48. #include "test_preprocess.h"
  49. END PROGRAM