20 lines
510 B
Fortran
20 lines
510 B
Fortran
! { dg-do compile }
|
|
! Tests the fix for PR25077 in which no diagnostic was produced
|
|
! for the redefinition of an intrinsic type assignment.
|
|
!
|
|
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
|
!
|
|
MODULE M1
|
|
IMPLICIT NONE
|
|
INTERFACE ASSIGNMENT(=)
|
|
MODULE PROCEDURE T1
|
|
END INTERFACE
|
|
CONTAINS
|
|
SUBROUTINE T1(I,J) ! { dg-error "redefine an INTRINSIC type assignment" }
|
|
INTEGER, INTENT(OUT) :: I
|
|
INTEGER, INTENT(IN) :: J
|
|
I=-J
|
|
END SUBROUTINE T1
|
|
END MODULE M1
|
|
! { dg-final { cleanup-modules "m1" } }
|