http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47789
Summary: derived type with no components
Product: gcc
Version: 4.6.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: [email protected]
ReportedBy: [email protected]
The following program gives error in compilation
module modone
type:: one
! integer :: b
contains
procedure :: f
end type
type, extends(one) :: two
real :: a
endtype
contains
subroutine f(this)
class(one) :: this
print *,'F'
end subroutine
end module
program mmain
use modone
!type(two) :: wo = two(2,6.7)
type(two) :: wo = two(6.7)
call wo%f()
end program
-----------------------
type(two) :: wo = two(6.7)
1
Error: Invalid character in name at (1)
While after uncommenting
integer :: b
and exchanging the comments in the two declaration
type(two) :: wo = two(2,6.7)
!type(two) :: wo = two(6.7)
make the program compile and run
