[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

buggy gfortran-4.7.2 in wheezy



Dear gfortran-Maintainers,

I'm wondering why there is still a version of gfortran in wheezy which is known to be buggy as shown in GCC Bugzilla Bug 54881 (http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54881). I can reproduce the bug reported there in comment #7 (see attachment), compilation fails with

crash.f90:13.22:

    call DestroyNode (theNode, lstatus )
                      1
Error: Actual argument for 'thenode' must be a pointer at (1)
crash.f90:15.22:

    call DestroyNode (theNode, lstatus )
                      1
Error: Actual argument for 'thenode' must be a pointer at (1)

On the Bugzilla-Page some patches are shown. Any plans to implement and publish a corrected version of gfortran?

Sincerely
Hartmut Kapitza
--
----------------------------------------------------------------
Dr. Hartmut Kapitza              Tel.: +49 (0)4152 87-1846
Institut fuer Kuestenforschung   Fax.: +49 (0)4152 87-2818
E-mail: hartmut.kapitza@hzg.de
----------------------------------------------------------------
Helmholtz-Zentrum Geesthacht Zentrum für Material- und Küstenforschung GmbH Max-Planck-Straße 1 I 21502 Geesthacht I Deutschland/Germany Geschäftsführer/Board of Management: Prof. Dr. Wolfgang Kaysser, Dipl.-Ing. Michael Ganß Vorsitzender des Aufsichtsrates/Chairman of the Supervisory Board: MinDirig Wilfried Kraus Amtsgericht Lübeck HRB 285 GE (Register Court) Internet: http://www.hzg.de
program crash

implicit none

  type treeNode
  end type

  class(treeNode), pointer :: theNode
  logical :: lstatus
  
  select type( theNode )
  type is (treeNode)
    call DestroyNode (theNode, lstatus )
  class is (treeNode)
    call DestroyNode (theNode, lstatus )
  end select
  
contains

  subroutine DestroyNode( theNode, lstatus )
    type(treeNode), pointer :: theNode
    logical, intent(out) :: lstatus
  end subroutine

end

Reply to: