Subversion Repositories openrisc_me

! { dg-do compile }

! { dg-do compile }

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

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

! permitted to be dummy arguments.

! permitted to be dummy arguments.

!

!

! Contributed by Joost VandeVondele  

! Contributed by Joost VandeVondele  

!

!

MODULE TT

MODULE TT

CONTAINS

CONTAINS

   ELEMENTAL INTEGER FUNCTION two(N)

   ELEMENTAL INTEGER FUNCTION two(N)

     INTEGER, INTENT(IN) :: N

     INTEGER, INTENT(IN) :: N

     two=2**N

     two=2**N

   END FUNCTION

   END FUNCTION

END MODULE

END MODULE

USE TT

USE TT

 INTEGER, EXTERNAL  :: SUB

 INTEGER, EXTERNAL  :: SUB

 write(6,*) SUB(two)    ! { dg-error "not allowed as an actual argument " }

 write(6,*) SUB(two)    ! { dg-error "not allowed as an actual argument " }

END

END

INTEGER FUNCTION SUB(XX)

INTEGER FUNCTION SUB(XX)

  INTEGER :: XX

  INTEGER :: XX

  SUB=XX()

  SUB=XX()

END

END

! { dg-final { cleanup-modules "TT" } }

! { dg-final { cleanup-modules "TT" } }