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