URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [fixed-1.f] - Rev 312
Go to most recent revision | Compare with Previous | Blame | View Log
C PR fortran/24493 C { dg-do compile } C { dg-require-effective-target tls_native } INTEGER I, J, K, L, M C$OMP THREADPRIVATE(I) C SOME COMMENT SAVE I ! ANOTHER COMMENT C$OMP THREADPRIVATE C$OMP+(J) ! OMP DIRECTIVE COMMENT * NORMAL COMMENT c$OMP THREAD! COMMENT C$OMP&PRIVATE! COMMENT *$OMP+ (K) C$OMP THREADPRIVATE (L ! COMMENT *$OMP& , M) SAVE J, K, L, M I = 1 J = 2 K = 3 L = 4 M = 5 END
Go to most recent revision | Compare with Previous | Blame | View Log