! PR fortran/61234 Warn for use-stmt without explicit only-list. | |
! { dg-do compile } | |
! { dg-options "-Wuse-without-only" } | |
MODULE foo | |
INTEGER :: bar | |
END MODULE | |
MODULE testmod | |
USE foo ! { dg-warning "7:has no ONLY qualifier" } | |
IMPLICIT NONE | |
CONTAINS | |
SUBROUTINE S1 | |
USE foo ! { dg-warning "10:has no ONLY qualifier" } | |
END SUBROUTINE S1 | |
SUBROUTINE S2 | |
USE foo, ONLY: bar | |
END SUBROUTINE | |
SUBROUTINE S3 | |
USE ISO_C_BINDING ! { dg-warning "10:has no ONLY qualifier" } | |
END SUBROUTINE S3 | |
END MODULE |