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.26.2.f90] - Blame information for rev 823

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


! { dg-do compile }
 
       MODULE A26_2
       REAL A
       CONTAINS
         SUBROUTINE G(K)
           REAL K
           A = K ! This is A in module A26_2, not the private
                  ! A in F
         END SUBROUTINE G
         SUBROUTINE F(N)
         INTEGER N
         REAL A
            INTEGER I
!$OMP PARALLEL DO PRIVATE(A)
              DO I = 1,N
                A=I
                CALL G(A*2)
              ENDDO
!$OMP END PARALLEL DO
          END SUBROUTINE F
      END MODULE A26_2

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do compile }`
2
3			`MODULE A26_2`
4			`REAL A`
5			`CONTAINS`
6			`SUBROUTINE G(K)`
7			`REAL K`
8			`A = K ! This is A in module A26_2, not the private`
9			`! A in F`
10			`END SUBROUTINE G`
11			`SUBROUTINE F(N)`
12			`INTEGER N`
13			`REAL A`
14			`INTEGER I`
15			`!$OMP PARALLEL DO PRIVATE(A)`
16			`DO I = 1,N`
17			`A=I`
18			`CALL G(A*2)`
19			`ENDDO`
20			`!$OMP END PARALLEL DO`
21			`END SUBROUTINE F`
22			`END MODULE A26_2`

Browse

Tools

Subversion Repositories openrisc

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