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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.25.1.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do compile }
 
        SUBROUTINE A25
        INTEGER OMP_GET_THREAD_NUM
        REAL A(20)
        INTEGER MYTHREAD
        !$OMP PARALLEL SHARED(A) PRIVATE(MYTHREAD)
        MYTHREAD = OMP_GET_THREAD_NUM()
        IF (MYTHREAD .EQ. 0) THEN
            CALL SUB(A(1:10)) ! compiler may introduce writes to A(6:10)
        ELSE
            A(6:10) = 12
        ENDIF
        !$OMP END PARALLEL
        END SUBROUTINE A25
        SUBROUTINE SUB(X)
        REAL X(*)
        X(1:5) = 4
        END SUBROUTINE SUB

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2
3			`SUBROUTINE A25`
4			`INTEGER OMP_GET_THREAD_NUM`
5			`REAL A(20)`
6			`INTEGER MYTHREAD`
7			`!$OMP PARALLEL SHARED(A) PRIVATE(MYTHREAD)`
8			`MYTHREAD = OMP_GET_THREAD_NUM()`
9			`IF (MYTHREAD .EQ. 0) THEN`
10			`CALL SUB(A(1:10)) ! compiler may introduce writes to A(6:10)`
11			`ELSE`
12			`A(6:10) = 12`
13			`ENDIF`
14			`!$OMP END PARALLEL`
15			`END SUBROUTINE A25`
16			`SUBROUTINE SUB(X)`
17			`REAL X(*)`
18			`X(1:5) = 4`
19			`END SUBROUTINE SUB`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [appendix-a/] [a.25.1.f90] - Blame information for rev 694