omp_cond1.f 471 B

1234567891011121314151617181920212223
  1. C Test conditional compilation in fixed form if -fopenmp
  2. ! { dg-options "-fopenmp" }
  3. 10 foo = 2
  4. &56
  5. if (foo.ne.256) call abort
  6. bar = 26
  7. !$2 0 ba
  8. c$ +r = 42
  9. !$ bar = 62
  10. !$ bar = bar + 1
  11. if (bar.ne.43) call abort
  12. baz = bar
  13. *$ 0baz = 5
  14. C$ +12! Comment
  15. c$ !4
  16. !$ +!Another comment
  17. *$ &2
  18. !$ X baz = 0 ! Not valid OpenMP conditional compilation lines
  19. ! $ baz = 1
  20. c$ 10&baz = 2
  21. if (baz.ne.51242) call abort
  22. end