1! { dg-do compile } 2! { dg-options "-std=f95" } 3! PR 20851 4! Dummy arguments are disallowed in initialization expressions in 5! elemental functions except as arguments to the intrinsic functions 6! BIT_SIZE, KIND, LEN, or to the numeric inquiry functions listed 7! in 13.11.8 8MODULE TT 9INTEGER M 10CONTAINS 11 ELEMENTAL REAL FUNCTION two(N) 12 INTEGER, INTENT(IN) :: N 13 INTEGER, DIMENSION(N) :: scr ! { dg-error "Dummy argument 'n' not allowed in expression" } 14 END FUNCTION 15 16 ELEMENTAL REAL FUNCTION twopointfive(N) 17 INTEGER, INTENT(IN) :: N 18 INTEGER, DIMENSION(MAX(N,2)) :: scr ! { dg-error "Dummy argument 'n' not allowed in expression" } 19 end FUNCTION twopointfive 20END MODULE 21END 22