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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
! { dg-do compile }
! { dg-options "-std=f2008" }
! PR fortran/113793
!
! Static checks of string length for ALLOCATE with SOURCE= or MOLD=
program p
implicit none
character(kind=1,len=8), allocatable :: a(:), d, b(:,:)
character(kind=4,len=6), allocatable :: c(:), e, f(:,:)
character(kind=1,len=2) :: c1 = "xx"
character(kind=1,len=8) :: c2 = "yy"
character(kind=4,len=6) :: c3 = 4_"ww"
character(kind=4,len=3) :: c4 = 4_"zz"
ALLOCATE (a(1),source= "a") ! { dg-error "Unequal character lengths .8/1. " }
ALLOCATE (a(2),mold = "bb") ! { dg-error "Unequal character lengths .8/2. " }
ALLOCATE (c(3),source=4_"yyy") ! { dg-error "Unequal character lengths .6/3. " }
ALLOCATE (c(4),mold =4_"zzzz") ! { dg-error "Unequal character lengths .6/4. " }
ALLOCATE (d, source= "12345") ! { dg-error "Unequal character lengths .8/5. " }
ALLOCATE (d, source= "12345678")
ALLOCATE (d, mold = "123456") ! { dg-error "Unequal character lengths .8/6. " }
ALLOCATE (e, source=4_"654321")
ALLOCATE (e, mold =4_"7654321") ! { dg-error "Unequal character lengths .6/7. " }
ALLOCATE (a(5),source=c1) ! { dg-error "Unequal character lengths .8/2. " }
ALLOCATE (a(6),mold =c1) ! { dg-error "Unequal character lengths .8/2. " }
ALLOCATE (c(7),source=c4) ! { dg-error "Unequal character lengths .6/3. " }
ALLOCATE (c(8),mold =c4) ! { dg-error "Unequal character lengths .6/3. " }
ALLOCATE (a,source=[c1,c1,c1]) ! { dg-error "Unequal character lengths .8/2. " }
ALLOCATE (a,source=[c2,c2,c2])
ALLOCATE (c,source=[c3,c3])
ALLOCATE (c,source=[c4,c4]) ! { dg-error "Unequal character lengths .6/3. " }
ALLOCATE (d,source=c1) ! { dg-error "Unequal character lengths .8/2. " }
ALLOCATE (e,source=c4) ! { dg-error "Unequal character lengths .6/3. " }
ALLOCATE (b,source=reshape([c1],[1,1])) ! { dg-error "Unequal character lengths .8/2. " }
ALLOCATE (b,source=reshape([c2],[1,1]))
ALLOCATE (f,source=reshape([c3],[1,1]))
ALLOCATE (f,source=reshape([c4],[1,1])) ! { dg-error "Unequal character lengths .6/3. " }
contains
subroutine foo (s)
character(*), intent(in) :: s
character(len=8), allocatable :: f(:), g
ALLOCATE (f(3), source=s)
ALLOCATE (d, source=s)
ALLOCATE (f(3), mold=s)
ALLOCATE (d, mold=s)
end
end
|
