! { 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 |