URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.33.3.f90] - Blame information for rev 338

Details | Compare with Previous | View Log


! { dg-do compile }
 
      FUNCTION NEW_LOCK()
      USE OMP_LIB       ! or INCLUDE "omp_lib.h"
        INTEGER(OMP_LOCK_KIND), POINTER :: NEW_LOCK
!$OMP SINGLE
          ALLOCATE(NEW_LOCK)
          CALL OMP_INIT_LOCK(NEW_LOCK)
!$OMP END SINGLE COPYPRIVATE(NEW_LOCK)
      END FUNCTION NEW_LOCK

Line No.	Rev	Author	Line
1	273	jeremybenn	`! { dg-do compile }`
2
3			`FUNCTION NEW_LOCK()`
4			`USE OMP_LIB ! or INCLUDE "omp_lib.h"`
5			`INTEGER(OMP_LOCK_KIND), POINTER :: NEW_LOCK`
6			`!$OMP SINGLE`
7			`ALLOCATE(NEW_LOCK)`
8			`CALL OMP_INIT_LOCK(NEW_LOCK)`
9			`!$OMP END SINGLE COPYPRIVATE(NEW_LOCK)`
10			`END FUNCTION NEW_LOCK`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.33.3.f90] - Blame information for rev 338