gcc/testsuite/gfortran.dg/invalid_interface_assignment.f90

   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 !
   9 MODULE TT
  10  TYPE data_type
  11    INTEGER :: I
  12  END TYPE data_type
  13  INTERFACE ASSIGNMENT (=)
  14    MODULE PROCEDURE set
  15  END INTERFACE
  16 CONTAINS
  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
  21 END MODULE