OSDN Git Service

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