| ! { dg-do compile } |
| ! { dg-options "-fdump-tree-original" } |
| ! PR fortran/104127 - ICE in get_array_charlen |
| ! Contributed by G.Steinmetz |
| |
| program p |
| character(4) :: mold = "XYZ" |
| integer :: i = 0 |
| integer, parameter :: l1 = len (transfer('ab', 'xyz', size=0)) |
| integer, parameter :: s1 = size (transfer('ab', 'xyz', size=0)) |
| integer, parameter :: l4 = len (transfer(4_'abcd', 4_'xy', size=0)) |
| integer, parameter :: s4 = size (transfer(4_'abcd', 4_'xy', size=0)) |
| integer, parameter :: l2 = len (transfer('ab', mold, size=0)) |
| integer, parameter :: l3 = len (transfer('ab', mold, size=1)) |
| integer, parameter :: l5 = len (transfer('ab',['xyz'], size=0)) |
| integer, parameter :: s5 = size (transfer('ab',['xyz'], size=0)) |
| call sub0 ( transfer('a', 'y', size=0) ) |
| call sub1 ([transfer('a', 'y', size=0)]) |
| call sub2 ([transfer('a',['y'],size=0)]) |
| call sub3 ( transfer('a', 'y', size=1) ) |
| call sub4 ([transfer('a', 'y', size=1)]) |
| call sub5 ( transfer('a', 'y', size=i) ) |
| call sub6 ( transfer(1_'abcd', 1_'xy' , size=0)) |
| call sub7 ( transfer(1_'abcd',[1_'xy'], size=0)) |
| call sub8 ( transfer(4_'abcd', 4_'xy' , size=0)) |
| call sub9 ( transfer(4_'abcd',[4_'xy'], size=0)) |
| print *, transfer('abcd', 'xy', size=0) |
| if (l1 /= 3 .or. s1 /= 0) stop 1 |
| if (l4 /= 2 .or. s4 /= 0) stop 2 |
| if (l2 /= 4 .or. l3 /= 4) stop 3 |
| if (l5 /= 3 .or. s5 /= 0) stop 4 |
| end |
| |
| ! { dg-final { scan-tree-dump-not "_gfortran_stop_numeric" "original" } } |