! { dg-do run }
!
! PR fortran/99111
!
program p
   implicit none
   type t
      integer :: a(1)
   end type
   type(t), parameter :: x(3) = [t(transfer('("he', 1)), &
                                 t(transfer('llo ', 1)), &
                                 t(transfer('W1")', 1))]

   integer, parameter :: y(3) = transfer('("hello W2")', 1, size=3)
   real, parameter :: z(3) = transfer('("hello W3")', 1.0, size=3)

   print y      ! { dg-warning "Legacy Extension: Non-character in FORMAT" }
   print z      ! { dg-warning "Legacy Extension: Non-character in FORMAT" }
   print x%a(1) ! { dg-warning "Legacy Extension: Non-character in FORMAT" }
end

! { dg-output "hello W2(\n|\r\n|\r)hello W3(\n|\r\n|\r)hello W1" }