gcc/testsuite/gfortran.dg/altreturn_7.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=legacy" }
   3 !
   4 ! PR 40848: [4.5 Regression] ICE with alternate returns
   5 !
   6 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   7
   8 MODULE TT
   9
  10 INTERFACE M
  11  MODULE PROCEDURE M1,M2
  12 END INTERFACE
  13
  14 CONTAINS
  15
  16  SUBROUTINE M1(I,*)
  17    INTEGER :: I
  18    RETURN 1
  19  END SUBROUTINE
  20
  21  SUBROUTINE M2(I,J)
  22    INTEGER :: I,J
  23  END SUBROUTINE
  24
  25 END MODULE
  26
  27
  28   USE TT
  29   CALL M(1,*2)
  30   CALL ABORT()
  31 2 CONTINUE
  32 END
  33
  34 ! { dg-final { cleanup-modules "tt" } }
  35