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