blob: d9a0d217271646404f460026b7ed3530a326d3d0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { 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
|
