[Bug fortran/38913] Fortran does not set TYPE_CANONICAL properly

[rguenth at gcc dot gnu dot org]

------- Comment #13 from rguenth at gcc dot gnu dot org  2009-06-28 16:56 -------
Similar case, from reduced import.f90:

subroutine bar(x)
  type myType
    sequence
    integer :: i
  end type myType
  type(myType) :: x
  x%i = 5
end subroutine bar

program foo
  integer, parameter :: dp = 8
  type myType
    sequence
    integer :: i
  end type myType
  interface
    subroutine bar(x)
      import
      type(myType) :: x
    end subroutine bar
  end interface

  type(myType) :: y
  y%i = 2
  call bar(y)
  if(y%i /= 5) call abort()
end program foo


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38913