| ! { 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 |