Path: ...!weretis.net!feeder9.news.weretis.net!news.quux.org!eternal-september.org!feeder2.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Lynn McGuire <lynnmcguire5@gmail.com>
Newsgroups: comp.lang.fortran
Subject: I am getting a strange error when compiling abcpar.f in gfortran
Date: Mon, 11 Nov 2024 16:35:34 -0600
Organization: A noiseless patient Spider
Lines: 47
Message-ID: <vgu0rm$16rop$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Mon, 11 Nov 2024 23:35:34 +0100 (CET)
Injection-Info: dont-email.me; posting-host="c542546d3c3c9b30a5af997c68e0fd0e";
	logging-data="1273625"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1+Wzw5GDxmN+uuVFNEdYPjmmJ9oxlFjdHg="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:FKBrvmU8z19+vAt4LV+LSTSAfj8=
Content-Language: en-US
Bytes: 2222

I am getting a strange error when compiling abcpar.f in gfortran:


Compiling .\CHM\VALIEQ\abcpar.f
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
- - - -
dii.inc:30:10:
Error: 'abcpar' of module 'aaa_modules', imported at (1), is also the 
name of the current program unit
Error: Last command making (build\abcpar.o) returned a bad status
Error: Make execution terminated
* Failed *


C     aaa_modules.f
C  list of interfaces in a module for CHM / DII code compiling
       MODULE aaa_modules
           implicit none
           INTERFACE
             SUBROUTINE ABCPAR(ISW,IRETST,IR,IC,PAR,IPHASE)
               INTEGER(KIND=8) :: ISW
               INTEGER(KIND=8) :: IRETST
               INTEGER(KIND=8) :: IR
               INTEGER(KIND=8) :: IC
               REAL(KIND=8) :: PAR
               INTEGER(KIND=8) :: IPHASE
             END SUBROUTINE ABCPAR
           END INTERFACE
....
       END MODULE aaa_modules


       SUBROUTINE ABCPAR (ISW, IRETST, IR, IC, PAR, IPHASE)
       INCLUDE 'dii.inc'
....
       return
       end


C  dii.inc
       use aaa_modules
C        force all variables to be declared
       implicit none


Thanks,
Lynn McGuire