https://gcc.gnu.org/bugzilla/show_bug.cgi?id=94397
Bug ID: 94397
Summary: [10 Regression] the compiler consider "type is(
real(kind(1.)) )" as a syntax error.
Product: gcc
Version: 10.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: chinoune.mehdi at hotmail dot com
Target Milestone: ---
Failed to build https://github.com/Goddard-Fortran-Ecosystem/pFUnit (which I
successfully built last Monday 23-03-2020) this morning with gcc-git.
This is the reduced code:
$ cat type_is.f90
module m
implicit none
contains
subroutine sub(a)
class(*) :: a
select type(a)
type is ( real( kind(1.) ) )
a = 1.
end select
end subroutine sub
end module m
$ gfortran-10 -c type_is.f90
type_is.f90:7:32:
7 | type is ( real( kind(1.) ) )
| 1
Error: Syntax error in TYPE IS specification at (1)
type_is.f90:8:14:
8 | a = 1.
| 1
Error: Expected TYPE IS, CLASS IS or END SELECT statement following SELECT TYPE
at (1)
$gfortran-10 --version
GNU Fortran (GCC) 10.0.1 20200330 (experimental)
