Mercurial > hg > CbC > CbC_gcc
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 |