1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do run }
!
! Test fixes for substring simplications derived from
! PR fortran/89077 - ICE using * as len specifier for character parameter
program test
implicit none
integer :: i
character(*), parameter :: s = 'abcdef', y = 'efcdab'
character(6), save :: t = transfer ([(s(i:i), i=1,len(s) )], s)
character(*), parameter :: u = transfer ([(s(i:i+2),i=1,len(s),3)], s)
character(6), save :: v = transfer ([(s(i:i+2),i=1,len(s),3)], s)
character(*), parameter :: w = transfer ([(y(i:i+1),i=len(s)-1,1,-2)], s)
character(6), save :: x = transfer ([(y(i:i+1),i=len(s)-1,1,-2)], s)
if (len (t) /= len (s) .or. t /= s) stop 1
if (len (u) /= len (s) .or. u /= s) stop 2
if (len (v) /= len (s) .or. v /= s) stop 3
if (len (w) /= len (s) .or. w /= s) stop 4
if (len (x) /= len (s) .or. x /= s) stop 5
end
|
