Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/31559

! Do not allow assigning to external functions

!

! Contributed by Steve Kargl 

!

module mod

  implicit none

contains

  integer function bar()

    bar = 4

  end function bar

  subroutine a()

   implicit none

   real :: fun

   external fun

   interface

     function funget(a)

       integer :: a

     end function

     subroutine sub()

     end subroutine sub

   end interface

   sub = 'a'  ! { dg-error "is not a variable" }

   fun = 4.4  ! { dg-error "is not a variable" }

   funget = 4 ! { dg-error "is not a variable" }

   bar = 5    ! { dg-error "is not a variable" }

  end subroutine a

end module mod

end

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