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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.17.2.f90] - Blame information for rev 827

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


! { dg-do compile }
 
      SUBROUTINE SUB()
        COMMON /BLK/ R
        REAL R
!$OMP ATOMIC
        R = R + 1.0
      END SUBROUTINE SUB
 
      SUBROUTINE A17_2_WRONG()
      COMMON /BLK/ I
      INTEGER I
!$OMP PARALLEL
!$OMP ATOMIC
            I=I+1
          CALL SUB()
!$OMP END PARALLEL
      END SUBROUTINE A17_2_WRONG
 

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2
3			`SUBROUTINE SUB()`
4			`COMMON /BLK/ R`
5			`REAL R`
6			`!$OMP ATOMIC`
7			`R = R + 1.0`
8			`END SUBROUTINE SUB`
9
10			`SUBROUTINE A17_2_WRONG()`
11			`COMMON /BLK/ I`
12			`INTEGER I`
13			`!$OMP PARALLEL`
14			`!$OMP ATOMIC`
15			`I=I+1`
16			`CALL SUB()`
17			`!$OMP END PARALLEL`
18			`END SUBROUTINE A17_2_WRONG`
19

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.17.2.f90] - Blame information for rev 827