Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/pr89266.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
1 ! { dg-do run }
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
2 !
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
3 ! PR fortran/89266 - ICE with TRANSFER of len=0 character array constructor
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
4
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
5 program test
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
6 implicit none
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
7 character(*), parameter :: n = ''
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
8 character(*), parameter :: o = transfer ([''], n)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
9 character(*), parameter :: p = transfer ( n , n)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
10 character(*), parameter :: q = transfer ([n], n)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
11 character(6), save :: r = transfer ([''], n)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
12 character(6), save :: s = transfer ( n , n)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
13 character(6), save :: t = transfer ([n], n)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
14 integer, parameter :: a(0) = 0
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
15 integer, parameter :: b(0) = transfer (a, a)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
16 integer, save :: c(0) = transfer (a, a)
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
17 if (len (o) /= 0) stop 1
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
18 if (len (p) /= 0) stop 2
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
19 if (len (q) /= 0) stop 3
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
20 if (r /= "") stop 4
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
21 if (s /= "") stop 5
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
22 if (t /= "") stop 6
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
23 if (size (b) /= 0 .or. any (b /= 0)) stop 7
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
24 if (size (c) /= 0 .or. any (c /= 0)) stop 8
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
25 end program test