https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95537
--- Comment #3 from Bill Seurer <seurer at linux dot vnet.ibm.com> ---
Running f951 directly via gdb on a power 9 LE system I see:
(gdb) run /home/seurer/gcc/git/gcc-test/gcc/testsuite/gfortran.dg/pr95090.f90
-quiet -dumpbase pr95090.f90 -dumpbase-ext .f90 -mcpu=power9 -O -version
-fdiagnostics-color=never -fdiagnostics-urls=never -fno-diagnostics-show-caret
-fno-diagnostics-show-line-numbers -fdiagnostics-urls=never -fcoarray=lib
-fsecond-underscore -o pr95090.s -fintrinsic-modules-path finclude
Starting program: /home3/seurer/gcc/git/build/gcc-test/gcc/f951
/home/seurer/gcc/git/gcc-test/gcc/testsuite/gfortran.dg/pr95090.f90 -quiet
-dumpbase pr95090.f90 -dumpbase-ext .f90 -mcpu=power9 -O -version
-fdiagnostics-color=never -fdiagnostics-urls=never -fno-diagnostics-show-caret
-fno-diagnostics-show-line-numbers -fdiagnostics-urls=never -fcoarray=lib
-fsecond-underscore -o pr95090.s -fintrinsic-modules-path finclude
GNU Fortran (GCC) version 11.0.0 20200604 (experimental) [remotes/origin/HEAD
revision 0ddb93ce7:d48b471b9:7ece3bd8088983289731450826c238eb2bdd2db5]
(powerpc64le-unknown-linux-gnu)
compiled by GNU C version 7.4.0, GMP version 6.1.0, MPFR version 3.1.4,
MPC version 1.0.3, isl version isl-0.18-GMP
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
GNU Fortran2008 (GCC) version 11.0.0 20200604 (experimental)
[remotes/origin/HEAD revision
0ddb93ce7:d48b471b9:7ece3bd8088983289731450826c238eb2bdd2db5]
(powerpc64le-unknown-linux-gnu)
compiled by GNU C version 7.4.0, GMP version 6.1.0, MPFR version 3.1.4,
MPC version 1.0.3, isl version isl-0.18-GMP
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096
*** buffer overflow detected ***: /home3/seurer/gcc/git/build/gcc-test/gcc/f951
terminated
Program received signal SIGABRT, Aborted.
0x00007ffff7bfe98c in __libc_signal_restore_set (set=0x7fffffffd488) at
../sysdeps/unix/sysv/linux/nptl-signals.h:80
80 ../sysdeps/unix/sysv/linux/nptl-signals.h: No such file or directory.
(gdb) where
#0 0x00007ffff7bfe98c in __libc_signal_restore_set (set=0x7fffffffd488) at
../sysdeps/unix/sysv/linux/nptl-signals.h:80
#1 __GI_raise (sig=<optimized out>) at ../sysdeps/unix/sysv/linux/raise.c:48
#2 0x00007ffff7c00be0 in __GI_abort () at abort.c:79
#3 0x00007ffff7c508fc in __libc_message (action=<optimized out>,
fmt=<optimized out>) at ../sysdeps/posix/libc_fatal.c:181
#4 0x00007ffff7d24d74 in __GI___fortify_fail_abort (need_backtrace=true,
msg=<optimized out>) at fortify_fail.c:33
#5 0x00007ffff7d24e10 in __GI___fortify_fail (msg=<optimized out>) at
fortify_fail.c:44
#6 0x00007ffff7d21680 in __GI___chk_fail () at chk_fail.c:28
#7 0x00007ffff7d203e4 in __strcpy_chk (dest=0x7fffffffda98
"t2345678901234567890123456789012345678901234567890123456789_123",
src=0x7ffff5c40360
"pdtt2345678901234567890123456789012345678901234567890123456789_123",
destlen=64)
at strcpy_chk.c:30
#8 0x0000000010289c7c in strcpy (__src=<optimized out>, __dest=0x7fffffffda98
"t2345678901234567890123456789012345678901234567890123456789_123") at
/usr/include/powerpc64le-linux-gnu/bits/string_fortified.h:90
#9 gfc_match_decl_type_spec (ts=0x123ebdb0 <current_ts>,
implicit_flag=<optimized out>) at
/home/seurer/gcc/git/gcc-test/gcc/fortran/decl.c:4287
#10 0x000000001028b4b8 in gfc_match_data_decl () at
/home/seurer/gcc/git/gcc-test/gcc/fortran/decl.c:6119
#11 0x0000000010320974 in match_word (str=0x0, subr=<optimized out>,
old_locus=0x7fffffffde28) at
/home/seurer/gcc/git/gcc-test/gcc/fortran/parse.c:65
#12 0x0000000010324884 in decode_statement () at
/home/seurer/gcc/git/gcc-test/gcc/fortran/parse.c:376
#13 0x0000000010327368 in next_free () at
/home/seurer/gcc/git/gcc-test/gcc/fortran/parse.c:1279
#14 next_statement () at /home/seurer/gcc/git/gcc-test/gcc/fortran/parse.c:1511
#15 0x000000001032b604 in parse_spec (st=ST_NONE) at
/home/seurer/gcc/git/gcc-test/gcc/fortran/parse.c:3738
#16 0x000000001032e37c in parse_progunit (st=ST_NONE) at
/home/seurer/gcc/git/gcc-test/gcc/fortran/parse.c:5851
#17 0x000000001032e854 in parse_contained (module=1) at
/home/seurer/gcc/git/gcc-test/gcc/fortran/parse.c:5752
#18 0x000000001032ffa4 in parse_module () at
/home/seurer/gcc/git/gcc-test/gcc/fortran/parse.c:6125
#19 0x000000001033039c in gfc_parse_file () at
/home/seurer/gcc/git/gcc-test/gcc/fortran/parse.c:6428
#20 0x00000000103a4120 in gfc_be_parse_file () at
/home/seurer/gcc/git/gcc-test/gcc/fortran/f95-lang.c:212
#21 0x0000000010bdd974 in compile_file () at
/home/seurer/gcc/git/gcc-test/gcc/toplev.c:458
#22 0x0000000010249b34 in do_compile () at
/home/seurer/gcc/git/gcc-test/gcc/toplev.c:2302
#23 toplev::main (this=0x7fffffffe8a6, argc=<optimized out>, argv=<optimized
out>) at /home/seurer/gcc/git/gcc-test/gcc/toplev.c:2441
#24 0x000000001024c004 in main (argc=<optimized out>, argv=0x7fffffffecc8) at
/home/seurer/gcc/git/gcc-test/gcc/main.c:39
