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] - Blame information for rev 816

Details | Compare with Previous | View Log


C Test conditional compilation in fixed form if -fopenmp
! { dg-options "-fopenmp" }
   10 foo = 2
     &56
      if (foo.ne.256) call abort
      bar = 26
!$2 0 ba
c$   +r = 42
      !$ bar = 62
!$    bar = bar + 1
      if (bar.ne.43) call abort
      baz = bar
*$   0baz = 5
C$   +12! Comment
c$   !4
!$   +!Another comment
*$   &2
!$ X  baz = 0 ! Not valid OpenMP conditional compilation lines
! $   baz = 1
c$ 10&baz = 2
      if (baz.ne.51242) call abort
      end

Line No.	Rev	Author	Line
1	38	julius	`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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [omp_cond1.f] - Blame information for rev 816