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