This caution does not occur for the sun one studio 8 early access compiler which
supercedes the version I was using and which is being officially released soon,
so it's been fixed already (:#
Paul
> Date: Sat, 17 May 2003 00:57:33 +0100
> From: P Suckling <[log in to unmask]>
> Subject: Incorrect CAUTION?
> To: [log in to unmask]
>
> 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/
> ==============================================
|