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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.33.3.f90] - Blame information for rev 816

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	38	julius	`! { 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

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.fortran/] [appendix-a/] [a.33.3.f90] - Blame information for rev 816