! { dg-do compile } | |
! Tests the fix for PR32689, in which the TRANSFER with MOLD | |
! an array variable, as below, did not simplify. | |
! | |
! Contributed by Harald Anlauf <anlauf@gmx.de> | |
! | |
program gfcbug67 | |
implicit none | |
type mytype | |
integer, pointer :: i(:) => NULL () | |
end type mytype | |
type(mytype) :: t | |
print *, size (transfer (1, t% i)) | |
end program gfcbug67 |