6 Jul 2007 7:02
#2032
This test program is compiled with no messages when compiled with ftn95 with no flags; when the /debug flag is used, the incorrect comment
- type :: t1 COMMENT - The derived-type T1 has been declared but not used
is generated.
program dg
type :: t1
integer :: i
real :: r
end type t1
type :: t2
type (t1) :: t
integer :: j
end type t2
type (t2) :: tt
tt%t%i = 1
tt%t%r = 1.0
tt%j = 2
write(*,*)tt
end program dg