https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103154
Bug ID: 103154
Summary: Crashing gfortran due to bad type parameter
specification
Product: gcc
Version: 10.3.1
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: b.j.braams at cwi dot nl
Target Milestone: ---
The following code is bad, it uses the undeclared variable k. This causes
gfortran to crash with an error message requesting the issue to be reported. I
obey.
Version information:
bash-5.0$ gcc -v
Using built-in specs.
COLLECT_GCC=/usr/bin/gcc
COLLECT_LTO_WRAPPER=/usr/libexec/gcc/x86_64-redhat-linux/10/lto-wrapper
OFFLOAD_TARGET_NAMES=nvptx-none
OFFLOAD_TARGET_DEFAULT=1
Target: x86_64-redhat-linux
Configured with: ../configure --enable-bootstrap
--enable-languages=c,c++,fortran,objc,obj-c++,ada,go,d,lto --prefix=/usr
--mandir=/usr/share/man --infodir=/usr/share/info
--with-bugurl=http://bugzilla.redhat.com/bugzilla --enable-shared
--enable-threads=posix --enable-checking=release --enable-multilib
--with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions
--enable-gnu-unique-object --enable-linker-build-id
--with-gcc-major-version-only --with-linker-hash-style=gnu --enable-plugin
--enable-initfini-array --with-isl --enable-offload-targets=nvptx-none
--without-cuda-driver --enable-gnu-indirect-function --enable-cet
--with-tune=generic --with-arch_32=i686 --build=x86_64-redhat-linux
Thread model: posix
Supported LTO compression algorithms: zlib zstd
gcc version 10.3.1 20210422 (Red Hat 10.3.1-1) (GCC)
Command line invocation acting on file Test.f90
bash-5.0$ gfortran Test.f90
System response
internal compiler error: in gfc_typenode_for_spec, at
fortran/trans-types.c:1120
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://bugzilla.redhat.com/bugzilla> for instructions.
The file Test.f90 that triggers the internal error:
bash-5.0$ cat Test.f90
module Test
implicit none
type :: Test_Type (n)
integer, len :: n
end type Test_Type
contains
subroutine Sub ()
! Crashing gfortran 9.3.1
type (Test_Type(n=k)) :: foo
return
end subroutine Sub
end module Test
