1 ! pr 15294 - [gfortran] ADJUSTR intrinsic accesses corrupted pointer
6 parameter (test_cases
=13)
8 character(len
=10) s1(test_cases
), s2(test_cases
)
37 print*, 's1 = "', s1(i
), '"'
38 print*, 's2 = "', s2(i
), '"'
39 print*, 'adjustr(s1) = "', adjustr(s1(i
)), '"'
40 if (adjustr(s1(i
)).ne
.s2(i
)) then
46 end program test_adjustr