Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
New Contributor I
33 Views

remark #7712 (again)

Hi

I get an inappropriate remark #7712 from the following code

module A
    contains
    subroutine A_sub
        implicit none
        integer        :: i = 0
        namelist/this_out/i
        write(*, nml=this_out)
    end subroutine A_sub
end module A
program test_namelist
    use, non_intrinsic :: A
    call A_sub
    stop
end program
! Output during build:
!------ Build started: Project: test_namelist, Configuration: Debug|Win32 ------
!
!Compiling with Intel(R) Visual Fortran Compiler 17.0.4.210 [IA-32]...
!test_namelist.f90
!C:\Users\ces1nk\Dropbox\Shuttlebackup\Dept\Research\Programs\Test\test_namelist\test_namelist\test_namelist.f90(5): remark #7712: 
!    This variable has not been used.   

!The command line included the following switches (i.e. almost /warn: kitchen_sink)
!/nologo /debug:full /Od /warn:declarations /warn:unused /warn:truncated_source /warn:interfaces /module:"Debug\\" &
!/object:"Debug\\" /Fd"Debug\vc110.pdb" /traceback /check:bounds /check:stack /libs:dll /threads /dbglibs /c

but I do not get the remark #7712 from the following (same setup/switches etc

program test_namelist
    use, non_intrinsic :: A
    call A_sub
    stop
    contains
    subroutine A_sub
        implicit none
        integer        :: i = 0
        namelist/this_out/i
        write(*, nml=this_out)
    end subroutine A_sub
end program

Both programs run fine but I do not like programs making inappropriate remarks!

Thanks

0 Kudos
3 Replies
Highlighted
New Contributor I
33 Views

The second program has the use, non_intrinsic :: A commented out

0 Kudos
Highlighted
Moderator
33 Views

This issue is fixed in 18.0 compiler.

0 Kudos
Highlighted
New Contributor I
33 Views

Excellent, thanks.

0 Kudos