gcc/testsuite/gfortran.dg/pr78741.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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