+
−! { dg-do run }
+
−!
+
−! PR fortran/89266 - ICE with TRANSFER of len=0 character array constructor
+
−
+
−program test
+
−  implicit none
+
−  character(*), parameter :: n = ''
+
−  character(*), parameter :: o = transfer ([''], n)
+
−  character(*), parameter :: p = transfer ( n , n)
+
−  character(*), parameter :: q = transfer ([n], n)
+
−  character(6), save      :: r = transfer ([''], n)
+
−  character(6), save      :: s = transfer ( n , n)
+
−  character(6), save      :: t = transfer ([n], n)
+
−  integer,      parameter :: a(0) = 0
+
−  integer,      parameter :: b(0) = transfer (a, a)
+
−  integer,      save      :: c(0) = transfer (a, a)
+
−  if (len (o) /= 0) stop 1
+
−  if (len (p) /= 0) stop 2
+
−  if (len (q) /= 0) stop 3
+
−  if (r /= "") stop 4
+
−  if (s /= "") stop 5
+
−  if (t /= "") stop 6
+
−  if (size (b) /= 0 .or. any (b /= 0)) stop 7
+
−  if (size (c) /= 0 .or. any (c /= 0)) stop 8
+
−end program test