2 ! { dg-options "-fbounds-check" }
6 ! Array constructor with typespec.
10 character(10), volatile :: b(3)
15 a = (/ character(len=7) :: trim(b(1)), trim(b(2)), trim(b(3)) /)
16 if (a(1) /= 'Takata' .or. a(2) /= 'Tanaka' .or. a(3) /= 'Hayashi') then
20 a = (/ character(len=2) :: trim(b(1)), trim(b(2)), trim(b(3)) /)
21 if (a(1) /= 'Ta' .or. a(2) /= 'Ta' .or. a(3) /= 'Ha') then
25 a = (/ character(len=8) :: trim(b(1)), trim(b(2)), trim(b(3)) /)
26 if (a(1) /= 'Takata' .or. a(2) /= 'Tanaka' .or. a(3) /= 'Hayashi') then