Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for 20871, in which elemental non-intrinsic procedures were

! permitted to be dummy arguments.

!

! Contributed by Joost VandeVondele  

!

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" } }