2 ! Tests the fix for 20871, in which elemental non-intrinsic procedures were
3 ! permitted to be dummy arguments.
5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
9 ELEMENTAL INTEGER FUNCTION two(N)
10 INTEGER, INTENT(IN) :: N
15 INTEGER, EXTERNAL :: SUB
16 write(6,*) SUB(two) ! { dg-error "not allowed as an actual argument " }
18 INTEGER FUNCTION SUB(XX)
23 ! { dg-final { cleanup-modules "TT" } }