[Bug fortran/31483] ICE on fortran Code

[pault at gcc dot gnu dot org]

------- Comment #1 from pault at gcc dot gnu dot org  2007-04-05 09:31 -------
Created an attachment (id=13330)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=13330&action=view)
Fix for the PR

The ICE is due to a gcc_assert blocking dummy procedures from having alternate
returns.  The fix, gives the procedure result the appropriate type and, as a
result, the following runs fine:

      SUBROUTINE R (i, *, *)
      INTEGER i
      RETURN i
      END

      SUBROUTINE PHLOAD (READER, i)
      IMPLICIT NONE
      EXTERNAL         READER
      integer i
      CALL READER (i, *1, *2)
 1    print *, "one"
      return
 2    print *, "two"
      return
      END

Give me a day or two to submit this one.

Paul
      EXTERNAL R
      call PHLOAD (R, 1)
      CALL PHLOAD (R, 2)
      END


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |pault at gcc dot gnu dot org
                   |dot org                     |
             Status|UNCONFIRMED                 |ASSIGNED


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