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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.38.1.f90] - Blame information for rev 407

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


! { dg-do compile }
 
      FUNCTION NEW_LOCKS()
        USE OMP_LIB        ! or INCLUDE "omp_lib.h"
        INTEGER(OMP_LOCK_KIND), DIMENSION(1000) :: NEW_LOCKS
        INTEGER I
!$OMP PARALLEL DO PRIVATE(I)
          DO I=1,1000
            CALL OMP_INIT_LOCK(NEW_LOCKS(I))
          END DO
!$OMP END PARALLEL DO
      END FUNCTION NEW_LOCKS

Line No.	Rev	Author	Line
1	273	jeremybenn	`! { dg-do compile }`
2
3			`FUNCTION NEW_LOCKS()`
4			`USE OMP_LIB ! or INCLUDE "omp_lib.h"`
5			`INTEGER(OMP_LOCK_KIND), DIMENSION(1000) :: NEW_LOCKS`
6			`INTEGER I`
7			`!$OMP PARALLEL DO PRIVATE(I)`
8			`DO I=1,1000`
9			`CALL OMP_INIT_LOCK(NEW_LOCKS(I))`
10			`END DO`
11			`!$OMP END PARALLEL DO`
12			`END FUNCTION NEW_LOCKS`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.38.1.f90] - Blame information for rev 407