1! { dg-do compile } 2! { dg-options "-std=gnu" } 3! 4! Tests the fix for PR25102, which did not diagnose the aberrant interface 5! assignement below. 6! 7! Contributed by Joost VandeVondele <jv244@cam.ac.uk> 8! 9MODULE TT 10 TYPE data_type 11 INTEGER :: I 12 END TYPE data_type 13 INTERFACE ASSIGNMENT (=) 14 MODULE PROCEDURE set 15 END INTERFACE 16CONTAINS 17 PURE SUBROUTINE set(x1,*) ! { dg-error "Alternate return cannot appear" } 18 TYPE(data_type), INTENT(OUT) :: x1 19 x1%i=0 20 END SUBROUTINE set 21END MODULE 22