4 ! Check that character arrays with non-constant char-length are handled
7 ! Contributed by Daniel Kraft <d@domob.eu>,
8 ! based on original test case and variant by Tobias Burnus in comment 2.
19 CHARACTER(MAX (80, nb
)) :: bad_rec(1)
21 bad_rec(1)(1:2) = 'abc'
22 IF (bad_rec(1)(1:2) /= 'ab') CALL abort ()