1! { dg-do compile } 2! Test the fix for pr41167, in which the first argument of 'pack', below, 3! was simplified incorrectly, with the results indicated. 4! 5! Contributed by Harald Anlauf <anlauf@gmx.de> 6! 7program gfcbug88 8 implicit none 9 type t 10 character(len=8) :: name 11 end type t 12 type(t) ,parameter :: obstyp(2)= (/ t ('A'), t ('B') /) 13 character(9) :: chr(1) 14 15 print *, pack (" "//obstyp(:)% name, (/ .true., .false. /)) ! Used to ICE on compilation 16 chr = pack (" "//obstyp(:)% name, (/ .true., .false. /)) ! Used to give conversion error 17end program gfcbug88 18