Given the code below, the SUN Forte 7 compiler gives the following caution:
> f95 -w3 test_USEcaution_prog.f90
USE quadrature_mod, ONLY : SimpsQuad_sub
^
"test_USEcaution_prog.f90", Line = 29, Column = 8: CAUTION: A module named
"ERROR_MOD" has already been directly or indirectly use associated into this
scope.
f90comp: 38 SOURCE LINES
f90comp: 0 ERRORS, 0 WARNINGS, 1 OTHER MESSAGES, 0 ANSI
Could someone please confirm that this caution is incorrect, or at least that it
should be incorrect?
Thanks,
Paul
--------------------------------------
MODULE error_mod
IMPLICIT NONE
PRIVATE
TYPE, PUBLIC :: error_type
INTEGER :: flg=0
END TYPE error_type
END MODULE error_mod
MODULE quadrature_mod
IMPLICIT NONE
PRIVATE
PUBLIC SimpsQuad_sub
CONTAINS
PURE SUBROUTINE SimpsQuad_sub(error)
USE error_mod, ONLY : error_type
IMPLICIT NONE
TYPE(error_type), INTENT(OUT) :: error
END SUBROUTINE SimpsQuad_sub
END MODULE quadrature_mod
PROGRAM QuadratureTest_prog
USE quadrature_mod, ONLY : SimpsQuad_sub
USE error_mod, ONLY : error_type
IMPLICIT NONE
END PROGRAM QuadratureTest_prog
--
==============================================
Paul Suckling
Research Associate
School of Mathematics and Statistics
The University of Birmingham
Edgbaston, Birmingham, B152TT, U.K.
+44(0)121 4146460
http://www.mat.bham.ac.uk/P.M.Suckling/
==============================================
|