[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / altreturn_7.f90

! { dg-do compile }
! { dg-options "-std=gnu" }
!
! PR 40848: [4.5 Regression] ICE with alternate returns
!
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>

MODULE TT

INTERFACE M
 MODULE PROCEDURE M1,M2
END INTERFACE

CONTAINS

 SUBROUTINE M1(I,*)
   INTEGER :: I
   RETURN 1
 END SUBROUTINE

 SUBROUTINE M2(I,J)
   INTEGER :: I,J
 END SUBROUTINE

END MODULE


  USE TT
  CALL M(1,*2)
  CALL ABORT()
2 CONTINUE
END
Commit	Line	Data
e26f5548	1	! { dg-do compile }
fbdeeaac	2	! { dg-options "-std=gnu" }
e26f5548 JW	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