1! { dg-do compile }
2! { dg-options "-std=gnu" }
3!
4! PR 40848: [4.5 Regression] ICE with alternate returns
5!
6! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
7
8MODULE TT
9
10INTERFACE M
11 MODULE PROCEDURE M1,M2
12END INTERFACE
13
14CONTAINS
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
25END MODULE
26
27
28  USE TT
29  CALL M(1,*2)
30  CALL ABORT()
312 CONTINUE
32END
33