Mercurial > hg > CbC > CbC_gcc
comparison libgomp/testsuite/libgomp.fortran/appendix-a/a.31.4.f90 @ 0:a06113de4d67
first commit
author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 17 Jul 2009 14:47:48 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:a06113de4d67 |
---|---|
1 ! { dg-do run } | |
2 MODULE M | |
3 INTRINSIC MAX | |
4 END MODULE M | |
5 PROGRAM A31_4 | |
6 USE M, REN => MAX | |
7 N=0 | |
8 !$OMP PARALLEL DO REDUCTION(REN: N) ! still does MAX | |
9 DO I = 1, 100 | |
10 N = MAX(N,I) | |
11 END DO | |
12 END PROGRAM A31_4 | |
13 | |
14 ! { dg-final { cleanup-modules "m" } } |