blob: 40ddff05d436b062473afbda4fcd2d1939f9d0e4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do compile }
! PR fortran/98661 - valgrind issues with error recovery
!
! Test issues related to former testcase charlen_03.f90
program p
implicit none
type t
character(:), pointer :: c(n) ! { dg-error "must have a deferred shape" }
real, allocatable :: x(n) ! { dg-error "must have a deferred shape" }
end type
end
subroutine s
! no 'implicit none'
type u
character(:), pointer :: c(n) ! { dg-error "must have a deferred shape" }
real, allocatable :: x(n) ! { dg-error "must have a deferred shape" }
end type
end
|
