https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77533
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
Sidenote : one message mentions a "KIND = 0".
$ cat z3.f90
module m
type t
contains
procedure :: s
generic :: write(formatted) => s
end type
contains
subroutine s(x)
class(t), intent(in) : x
end
end
$ gfortran-7-20160904 z3.f90
z3.f90:9:15:
class(t), intent(in) : x
1
Error: Invalid character in name at (1)
z3.f90:4:15:
procedure :: s
1
Error: Non-polymorphic passed-object dummy argument of 's' at (1)
z3.f90:8:17:
subroutine s(x)
1
Error: DTIO dummy argument at (1) must be of type CLASS
z3.f90:8:17:
subroutine s(x)
1
Error: DTIO dummy argument at (1) must be of KIND = 0
z3.f90:8:17:
subroutine s(x)
1
Error: DTIO dummy argument at (1) must have intent IN
