blob: 3cde68369f49650ea07f4cf9a29edc4482a8aa34 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
!
! PR fortran/88326 - ICE in gfc_conv_array_initializer
program p
character, parameter :: x(3) = ['a','b','c']
character :: y(1) = transfer('', x) ! { dg-error "Different shape for array assignment" }
character(0) :: z(1) = transfer('', x) ! { dg-error "Different shape for array assignment" }
character :: u(0) = transfer('', x)
print *, y, z, u
end
|
