2 ! Tests the fix for PR30236, which was due to alternate returns
3 ! in generic interfaces causing a segfault. They now work
6 ! Contributed by Brooks Moses <brooks@gcc.gnu.org>
12 module procedure without
35 if (i /= -2) call abort ()
41 if (i /= -1) call abort ()
43 ! { dg-final { cleanup-modules "arswitch" } }