24 lines
528 B
Fortran
24 lines
528 B
Fortran
|
! { dg-do compile }
|
||
|
! Tests the fix for 20871, in which elemental non-intrinsic procedures were
|
||
|
! permitted to be dummy arguments.
|
||
|
!
|
||
|
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
||
|
!
|
||
|
MODULE TT
|
||
|
CONTAINS
|
||
|
ELEMENTAL INTEGER FUNCTION two(N)
|
||
|
INTEGER, INTENT(IN) :: N
|
||
|
two=2**N
|
||
|
END FUNCTION
|
||
|
END MODULE
|
||
|
USE TT
|
||
|
INTEGER, EXTERNAL :: SUB
|
||
|
write(6,*) SUB(two) ! { dg-error "not allowed as an actual argument " }
|
||
|
END
|
||
|
INTEGER FUNCTION SUB(XX)
|
||
|
INTEGER :: XX
|
||
|
SUB=XX()
|
||
|
END
|
||
|
|
||
|
! { dg-final { cleanup-modules "TT" } }
|