2 ! { dg-options "-Wall" }
3 ! Added -Wall option to make sure PR42526 does not show up again.
6 character(len=16) :: tdefi(2) = (/'0z1jan0000','1hr '/)
8 character(len=16) :: tdefi(2) = (/'0z1jan0000','1hr '/)
15 if (tdefi(1) .ne. ctl%tdefi(1)) call abort ()