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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.31.4.f90] - Blame information for rev 735

Details | Compare with Previous | View Log


! { dg-do run }
        MODULE M
        INTRINSIC MAX
        END MODULE M
        PROGRAM A31_4
        USE M, REN => MAX
        N=0
!$OMP PARALLEL DO REDUCTION(REN: N) ! still does MAX
        DO I = 1, 100
            N = MAX(N,I)
        END DO
        END PROGRAM A31_4
 
! { dg-final { cleanup-modules "m" } }

Line No.	Rev	Author	Line
1	735	jeremybenn	`! { dg-do run }`
2			`MODULE M`
3			`INTRINSIC MAX`
4			`END MODULE M`
5			`PROGRAM A31_4`
6			`USE M, REN => MAX`
7			`N=0`
8			`!$OMP PARALLEL DO REDUCTION(REN: N) ! still does MAX`
9			`DO I = 1, 100`
10			`N = MAX(N,I)`
11			`END DO`
12			`END PROGRAM A31_4`
13
14			`! { dg-final { cleanup-modules "m" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.31.4.f90] - Blame information for rev 735