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

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 ! { dg-do run }
2 !
3 ! PR fortran/89266 - ICE with TRANSFER of len=0 character array constructor
4
5 program test
6 implicit none
7 character(*), parameter :: n = ''
8 character(*), parameter :: o = transfer ([''], n)
9 character(*), parameter :: p = transfer ( n , n)
10 character(*), parameter :: q = transfer ([n], n)
11 character(6), save :: r = transfer ([''], n)
12 character(6), save :: s = transfer ( n , n)
13 character(6), save :: t = transfer ([n], n)
14 integer, parameter :: a(0) = 0
15 integer, parameter :: b(0) = transfer (a, a)
16 integer, save :: c(0) = transfer (a, a)
17 if (len (o) /= 0) stop 1
18 if (len (p) /= 0) stop 2
19 if (len (q) /= 0) stop 3
20 if (r /= "") stop 4
21 if (s /= "") stop 5
22 if (t /= "") stop 6
23 if (size (b) /= 0 .or. any (b /= 0)) stop 7
24 if (size (c) /= 0 .or. any (c /= 0)) stop 8
25 end program test