blob: 6eb85789f942935d8247139b9668035b4dfa2f46 (
plain)
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
|
