blob: 69882c1e6b95db7b1f4a88d7a70835277e6c4687 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-do run }
MODULE M
INTRINSIC MAX
END MODULE M
PROGRAM A31_4
USE M, REN => MAX
N=0
!$OMP PARALLEL DO REDUCTION(REN: N) ! still does MAX
DO I = 1, 100
N = MAX(N,I)
END DO
END PROGRAM A31_4
|