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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [omp_cond3.F90] - Blame information for rev 867

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	38	julius	`! Test conditional compilation in free form if -fopenmp`
2			`! { dg-options "-fopenmp" }`
3			`10 foo = 2&`
4			`&56`
5			`if (foo.ne.256) call abort`
6			`bar = 26`
7			`!$ 20 ba&`
8			`!$ &r = 4&`
9			`!$2`
10			`!$bar = 62`
11			`!$ bar = bar + 2`
12			`#ifdef _OPENMP`
13			`bar = bar - 1`
14			`#endif`
15			`if (bar.ne.43) call abort`
16			`baz = bar`
17			`!$ 30 baz = 5& ! Comment`
18			`!$12 &`
19			`!$ + 2`
20			`!$X baz = 0 ! Not valid OpenMP conditional compilation lines`
21			`! $ baz = 1`
22			`baz = baz + 1 !$ baz = 2`
23			`if (baz.ne.515) call abort`
24			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [omp_cond3.F90] - Blame information for rev 867