1! { dg-do compile } 2! Tests the fix for PR32689, in which the TRANSFER with MOLD 3! an array variable, as below, did not simplify. 4! 5! Contributed by Harald Anlauf <anlauf@gmx.de> 6! 7program gfcbug67 8 implicit none 9 10 type mytype 11 integer, pointer :: i(:) => NULL () 12 end type mytype 13 type(mytype) :: t 14 15 print *, size (transfer (1, t% i)) 16end program gfcbug67 17