The following code works with g77 but the executable from gfortran yields
segmentation fault
      program test_entry
      real a(10)
      a(1) = 999.
      call x
      call y(a,10)
      stop
      end 
      subroutine x
      real a(n)
      write(6,*)'Hello World from subroutine x'
      return
      entry y(a,n)
      call foo(a(1))
      end
      subroutine foo(a)
      real a
      write(6,*)'Hello World from entry y ',a
      return
      end


-- 
           Summary: Standard F77 entry point failed
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: critical
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: elizabeth dot l dot yip at boeing dot com
 GCC build triplet: ../gcc/configure --prefix=/var/tmp/gfortran-
                    20061114/irun --enab
  GCC host triplet: Dell 670 SUSE 9.3
GCC target triplet: x86_64-unknown-linux-gnu


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

Reply via email to