2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr78741.f90

! { dg-do compile }
! PR fortran/78741
! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran at t-online.de>
subroutine s(n, x)
   integer :: n
   character(n) :: x
   character, pointer :: z(:)
   x = 'a'
   return
entry g(n, x)           ! { dg-error "is already defined" }
   x = 'b'
contains
   subroutine g         ! { dg-error "(1)" }
      z(1) = x(1:1)
   end
end