blob: 4871e330d22304f827b9498c78dbf07be6def7e9 (
plain)
1
2
3
4
5
6
7
8
|
! { dg-do run }
! PR 52749 - this used to ICE.
! Original test case by Stefan Mauerberger.
PROGRAM test
character(len=10) :: u
WRITE(unit=u,fmt='(3A)') PACK(ADJUSTL([" a", " b"]), [.TRUE., .FALSE.])
if (u .ne. 'a ') STOP 1
END PROGRAM test
|