[Bug target/62251] [5 Regression] FAIL: gfortran.dg/quad_2.f90 execution test

[danglin at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=62251

--- Comment #1 from John David Anglin <danglin at gcc dot gnu.org> ---
Test fails at line 58:
         if (str3 /= "   1.41421356237309504880168872420969798") call abort()

_gfortrani_compare_string (len1=len1@entry=80, 
    s1=0x800003fffdff0b90 "   1.41421356237309504880168872420969800", ' '
<repeats 40 times>, "1.41421356237309504880168872420969800", ' ' <repeats 43
times>, s1@entry=<error reading variable: can't compute CFA for this frame>, 
    len2=len2@entry=40, 
    s2=s2@entry=0x4000000000001a70 "  
1.414213562373095048801688724209697981.41421356237309504880168872420969798")
    at ../../../gcc/libgfortran/intrinsics/string_intrinsics_inc.c:85

(gdb) bt
#0  0x800003fffdfd7544 in _gfortrani_compare_string (len1=len1@entry=80, 
    s1=0x800003fffdff0b90 "   1.41421356237309504880168872420969800", ' '
<repeats 40 times>, "1.41421356237309504880168872420969800", ' ' <repeats 43
times>, s1@entry=<error reading variable: can't compute CFA for this frame>, 
    len2=len2@entry=40, 
    s2=s2@entry=0x4000000000001a70 "  
1.414213562373095048801688724209697981.41421356237309504880168872420969798")
    at ../../../gcc/libgfortran/intrinsics/string_intrinsics_inc.c:85
#1  0x40000000000036c0 in test_qp ()
    at /test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/quad_2.f90:58
#2  0x4000000000003840 in main (argc=<optimized out>, argv=<optimized out>)
    at /test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/quad_2.f90:78

With debug comments removed:
# ./quad_2.exe
>   1.00000000000000000000000000000000000<
>1.00000000000000000000000000000000000<
>   1.41421356237309504880168872420969800<
>1.41421356237309504880168872420969800<

Program aborted. Backtrace:
#0  0xC00000000033D86B
ABORT instruction (core dumped)