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