| ! { dg-do run } |
| ! PR fortran/99206 - ICE in add_init_expr_to_sym, at fortran/decl.c:1980 |
| ! Check simplifier of RESHAPE for character arrays. |
| |
| program p |
| character(*), parameter :: a(0) = reshape([ 'ab'], [0]) |
| character(*,kind=4), parameter :: c(0) = reshape([4_'cd'], [0]) |
| if (len (a) /= 2) stop 1 |
| if (len (reshape ( ['ab'], [0])) /= 2) stop 2 |
| if (kind(reshape ( ['ab'], [0])) /= 1) stop 3 |
| if (len (c) /= 2) stop 4 |
| if (len (reshape ([4_'cd'], [0])) /= 2) stop 5 |
| if (kind(reshape ([4_'cd'], [0])) /= 4) stop 6 |
| end |