blob: 7c0f524c3c97e344ed03f7094a7690a0c523afda [file] [log] [blame]
! { 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" }