URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [omp_cond1.f] - Diff between revs 154 and 816

Rev 154	Rev 816
`C Test conditional compilation in fixed form if -fopenmp`	`C Test conditional compilation in fixed 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`
`!$2 0 ba`	`!$2 0 ba`
`c$ +r = 42`	`c$ +r = 42`
`!$ bar = 62`	`!$ bar = 62`
`!$ bar = bar + 1`	`!$ bar = bar + 1`
`if (bar.ne.43) call abort`	`if (bar.ne.43) call abort`
`baz = bar`	`baz = bar`
`*$ 0baz = 5`	`*$ 0baz = 5`
`C$ +12! Comment`	`C$ +12! Comment`
`c$ !4`	`c$ !4`
`!$ +!Another comment`	`!$ +!Another comment`
`*$ &2`	`*$ &2`
`!$ X baz = 0 ! Not valid OpenMP conditional compilation lines`	`!$ X baz = 0 ! Not valid OpenMP conditional compilation lines`
`! $ baz = 1`	`! $ baz = 1`
`c$ 10&baz = 2`	`c$ 10&baz = 2`
`if (baz.ne.51242) call abort`	`if (baz.ne.51242) call abort`
`end`	`end`