URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [libgomp/] [testsuite/] [libgomp.fortran/] [omp_cond3.F90] - Diff between revs 273 and 338

Rev 273	Rev 338
`! Test conditional compilation in free form if -fopenmp`	`! Test conditional compilation in free form if -fopenmp`
`! { dg-options "-fopenmp" }`	`! { dg-options "-fopenmp" }`
`10 foo = 2&`	`10 foo = 2&`
`&56`	`&56`
`if (foo.ne.256) call abort`	`if (foo.ne.256) call abort`
`bar = 26`	`bar = 26`
`!$ 20 ba&`	`!$ 20 ba&`
`!$ &r = 4&`	`!$ &r = 4&`
`!$2`	`!$2`
`!$bar = 62`	`!$bar = 62`
`!$ bar = bar + 2`	`!$ bar = bar + 2`
`#ifdef _OPENMP`	`#ifdef _OPENMP`
`bar = bar - 1`	`bar = bar - 1`
`#endif`	`#endif`
`if (bar.ne.43) call abort`	`if (bar.ne.43) call abort`
`baz = bar`	`baz = bar`
`!$ 30 baz = 5& ! Comment`	`!$ 30 baz = 5& ! Comment`
`!$12 &`	`!$12 &`
`!$ + 2`	`!$ + 2`
`!$X baz = 0 ! Not valid OpenMP conditional compilation lines`	`!$X baz = 0 ! Not valid OpenMP conditional compilation lines`
`! $ baz = 1`	`! $ baz = 1`
`baz = baz + 1 !$ baz = 2`	`baz = baz + 1 !$ baz = 2`
`if (baz.ne.515) call abort`	`if (baz.ne.515) call abort`
`end`	`end`