Without a program statement :
$ cat z1.f90 integer(len((c)) :: n end
$ gfortran-9-20181216 -c z1.f90 $ gfortran-9-20181216 -c z1.f90 -fimplicit-none z1.f90:1:0:
1 | integer(len((c)) :: n | internal compiler error: in gfc_typenode_for_spec, at fortran/trans-types.c:1120 0x78e59d gfc_typenode_for_spec(gfc_typespec*, int) ../../gcc/fortran/trans-types.c:1120 0x78c1f6 gfc_sym_type(gfc_symbol*) ../../gcc/fortran/trans-types.c:2243 0x71af9e gfc_get_symbol_decl(gfc_symbol*) ../../gcc/fortran/trans-decl.c:1696 0x71ea47 generate_local_decl ../../gcc/fortran/trans-decl.c:5600 0x6d3d12 do_traverse_symtree ../../gcc/fortran/symbol.c:4151 0x71ff9c generate_local_vars ../../gcc/fortran/trans-decl.c:5800 0x71ff9c gfc_generate_function_code(gfc_namespace*) ../../gcc/fortran/trans-decl.c:6444 0x69d7c6 translate_all_program_units ../../gcc/fortran/parse.c:6128 0x69d7c6 gfc_parse_file() ../../gcc/fortran/parse.c:6331 0x6e6fcf gfc_be_parse_file ../../gcc/fortran/f95-lang.c:204
---
Invalid syntax also silently accepted :
$ cat z3.f90 integer(m::n end
$ gfortran-9-20181216 -c z3.f90 $ gfortran-9-20181216 -c z3.f90 -fimplicit-none z3.f90:1:0:
1 | integer(m::n | internal compiler error: in gfc_typenode_for_spec, at fortran/trans-types.c:1120 #...
Without a program statement :
$ cat z1.f90
integer(len((c)) :: n
end
$ gfortran-9-20181216 -c z1.f90
$ gfortran-9-20181216 -c z1.f90 -fimplicit-none
z1.f90:1:0:
1 | integer(len((c)) :: n for_spec, at fortran/ trans-types. c:1120 for_spec( gfc_typespec* , int)
../../ gcc/fortran/ trans-types. c:1120 type(gfc_ symbol* )
../../ gcc/fortran/ trans-types. c:2243 symbol_ decl(gfc_ symbol* )
../../ gcc/fortran/ trans-decl. c:1696
../../ gcc/fortran/ trans-decl. c:5600
../../ gcc/fortran/ symbol. c:4151
../../ gcc/fortran/ trans-decl. c:5800 function_ code(gfc_ namespace* )
../../ gcc/fortran/ trans-decl. c:6444 all_program_ units
../../ gcc/fortran/ parse.c: 6128
../../ gcc/fortran/ parse.c: 6331
../../ gcc/fortran/ f95-lang. c:204
|
internal compiler error: in gfc_typenode_
0x78e59d gfc_typenode_
0x78c1f6 gfc_sym_
0x71af9e gfc_get_
0x71ea47 generate_local_decl
0x6d3d12 do_traverse_symtree
0x71ff9c generate_local_vars
0x71ff9c gfc_generate_
0x69d7c6 translate_
0x69d7c6 gfc_parse_file()
0x6e6fcf gfc_be_parse_file
---
Invalid syntax also silently accepted :
$ cat z3.f90
integer(m::n
end
$ gfortran-9-20181216 -c z3.f90
$ gfortran-9-20181216 -c z3.f90 -fimplicit-none
z3.f90:1:0:
1 | integer(m::n for_spec, at fortran/ trans-types. c:1120
|
internal compiler error: in gfc_typenode_
#...