mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-11 19:49:32 +00:00
15 lines
317 B
Fortran
15 lines
317 B
Fortran
! { 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
|
|
|
|
! { dg-final { cleanup-modules "m" } }
|