! { dg-do compile } PROGRAM A31_3_WRONG MAX = HUGE(0) M=0 !$OMP PARALLEL DO REDUCTION(MAX: M) ! MAX is no longer the intrinsic so this is non-conforming ! { dg-error "OMP DECLARE REDUCTION max not found" "" { target *-*-* } .-1 } */ DO I = 1, 100 CALL SUB(M,I) END DO END PROGRAM A31_3_WRONG SUBROUTINE SUB(M,I) M = MAX(M,I) END SUBROUTINE SUB