blob: 4e32c647d4d1eeb83183170e3b48ae1c31ace249 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! { dg-do compile }
! PR fortran/68569 - ICE with automatic character object and DATA
! Contributed by G. Steinmetz
subroutine s1 (n)
implicit none
integer, intent(in) :: n
character(n) :: x
data x /'a'/ ! { dg-error "Non-constant character length" }
end
subroutine s2 (n)
implicit none
integer, intent(in) :: n
character(n) :: x
data x(1:1) /'a'/ ! { dg-error "Non-constant character length" }
end
subroutine s3 ()
implicit none
type t
character(:) :: c ! { dg-error "must be a POINTER or ALLOCATABLE" }
end type t
type(t) :: tp
data tp%c /'a'/ ! { dg-error "Non-constant character length" }
end
|
