Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR25087, in which the following invalid code

! was not detected.

!

! Contributed by Joost VandeVondele  

!

SUBROUTINE s(n)

  CHARACTER(LEN=n), EXTERNAL :: a ! { dg-error "must have an explicit interface" }

  interface

    function b (m)                ! This is OK

      CHARACTER(LEN=m) :: b

      integer :: m

    end function b

  end interface

  write(6,*) a(n)

  write(6,*) b(n)

  write(6,*) c()

contains

    function c ()                ! This is OK

      CHARACTER(LEN=n):: c

      c = ""

    end function c

END SUBROUTINE s