URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [omp_cond4.F90] - Rev 735
Compare with Previous | Blame | View Log
! Test conditional compilation in free form if -fno-openmp! { dg-options "-fno-openmp" }10 foo = 2&&56if (foo.ne.256) call abortbar = 26!$ 20 ba&!$ &r = 4&!$2!$bar = 62!$ bar = bar + 2#ifdef _OPENMPbar = bar - 1#endifif (bar.ne.26) call abortbaz = bar!$ 30 baz = 5& ! Comment!$12 &!$ + 2!$X baz = 0 ! Not valid OpenMP conditional compilation lines! $ baz = 1baz = baz + 1 !$ baz = 2if (baz.ne.27) call abortend
