1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
! { dg-do run }
! { dg-options "-O -std=legacy" }
!
! Test fixes for some findings while resolving PR fortran/89077
program test
implicit none
integer :: i
character(*) ,parameter :: s = 'abcdef' ! Length will be 6
character(*) ,parameter :: h = 6Habcdef ! Length will be 8 (Hollerith!)
character(10) ,parameter :: k = 6Habcdef
character(10) ,parameter :: t = transfer (s, s)
character(10) ,save :: u = transfer (s, s)
character(10) ,parameter :: v = transfer (h, h)
character(10) ,save :: w = transfer (h, h)
character(10) ,parameter :: x = transfer ([(s(i:i),i=len(s),1,-1)], s)
character(10) ,save :: y = transfer ([(s(i:i),i=len(s),1,-1)], s)
if (len (h) /= 8) stop 1
if (h /= s) stop 2
if (k /= s) stop 3
if (t /= s) stop 4
if (u /= s) stop 5
if (v /= s) stop 6
if (w /= s) stop 7
if (x /= "fedcba") stop 8
if (y /= x) stop 9
end program test
|
