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