URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [fixed-1.f] - Rev 694
Compare with Previous | Blame | View Log
C PR fortran/24493 C { dg-do compile } C { dg-require-effective-target tls } 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