blob: a3858d23a027a6de7addde978071b7b486d8e315 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do run }
! PR fortran/83864
!
! Derived from PR by Contributed by Gerhard Steinmetz <gscfq@t-online.de>
!
program p
implicit none
type t
character :: c(3) = transfer('abc','z',3)
end type t
type(t) :: x
if (any (x%c /= ["a", "b", "c"])) STOP 1
end
|