* Reduced FORTRAN program form HFS.f in package atsp
* A General Program for Computing Magnetic Dipole and
* Electric Quadrupole Hyperfine Constants
*
* C O P Y R I G H T -- 1994
*
* P. Jonsson and C.G. Wahlstrom, Department of Physics,
* Lund Institute of Technology,
* P.O. Box 118,S-221 00 Lund
* Sweden
* C. Froese Fischer, Department of Computer Science
* Vanderbilt University,
* Nashville, TN 37235
* USA
*
* Computer Physics Communication, Vol. 74, 399--414 (1993)
subroutine qq ! (reduced by rmg from above)
* DIMENSION STATEMENTS
PARAMETER (KFL1=60,KFL2=12)
DIMENSION J2STO(KFL2,3),J3STO(KFL2,3),NBAR(KFL2),
: JBAR(KFL2,3),JPBAR(KFL2,3)
* COMMON BLOCKS
LOGICAL FAIL,FREE
COMMON/TENSOR/VVSHELL(50),IIHSH,NNOVLP(50),IIRHO(50),IISIG(50),
1 MMU(50),MMUP(50),NNU(50),NNUP(50)
COMMON/COUPLE/NJ1S,NJ23S,J1(KFL1),J2(KFL2,3),J3(KFL2,3),FREE(KFL1)
COMMON/INFORM/IREADC,IWRITE,IOUT,IREADJ,IREADW,ISCW,IREAD,ISC(4)
COMMON/KRON/IDEL(10,10)
COMMON/MEDEFN/IHSH,NJ(10),LJ(10),NOSH1(10),NOSH2(10),J1QN1(19,3)
1 ,J1QN2(19,3),IJFUL(10)
COMMON/DEBUG/IBUG1,IBUG2,IBUG3,NBUG6,NBUG7,IFULL
COMMON/TERMS/NROWS,ITAB(24),JTAB(24),NTAB(333)
COMMON/CONSTS/ZERO,TENTH,HALF,ONE,TWO,THREE,FOUR,SEVEN,ELEVEN,EPS
COMMON/OVRLAP/MU,NU,MUP,NUP,NONORT,NOVLPS,IROWMU,IROWNU,ICOLMU,
1 ICOLNU,NORTH,IORDER,NCALLS,LMU,LNU,LMUP,LNUP,JMU,JNU,JMUP,JNUP
COMMON/OVRINT/IOVEL(2),IOVER(2),IOVEP(2)
COMMON/MACHOR/IMATCH(2)
COMMON/FACT/GAM(100)
COMMON/EMS/IEM(4),JI,JF,IFL
* INTERACTING SUBSHELL ON R.H.S. FOUND. THE ONE ON L.H.S. MUST
* BE EITHER MU OR NU
*
506 IF(IX.EQ.0.AND.IY.EQ.1) THEN
IF(IBACK3.EQ.0) THEN
IRHO=MU
IF(MU.NE.NU) IBACK3=1
MGO=MATCH(IONE,IZERO,IZERO,IZERO)
IF(MGO.EQ.0) THEN
IRHO=0
RETURN
ELSEIF(MGO.EQ.1) THEN
IF(IBACK3.EQ.1) THEN
MU=MUSTO
NU=NUSTO
MUP=MUPSTO
NUP=NUPSTO
NOVLPS=NOVSTO
LMU=LMUSTO
LNU=LNUSTO
LMUP=LMUPST
LNUP=LNUPST
GO TO 105 ! rmg questionable goto
ELSE
IRHO=0
RETURN
ENDIF
ELSE
GO TO 108
ENDIF
ELSE
105 IRHO=NU
RML=ZERO
RML2=ZERO
IBACK3=0
MGO=MATCH(IZERO,IONE,IZERO,IZERO)
IF(MGO.EQ.2) GO TO 108
IRHO=0
RETURN
ENDIF
108 MEMR=IRHO
ENDIF
END
gcc-.3.4.5 SPECS
Reading specs from /usr/lib/gcc/powerpc-unknown-linux-gnu/3.4.5/specs
Configured with: /var/tmp/portage/gcc-3.4.5/work/gcc-3.4.5/configure
--prefix=/usr
--bindir=/usr/powerpc-unknown-linux-gnu/gcc-bin/3.4.5
--includedir=/usr/lib/gcc/powerpc-unknown-linux-gnu/3.4.5/include
--datadir=/usr/share/gcc-data/powerpc-unknown-linux-gnu/3.4.5
--mandir=/usr/share/gcc-data/powerpc-unknown-linux-gnu/3.4.5/man
--infodir=/usr/share/gcc-data/powerpc-unknown-linux-gnu/3.4.5/info
--with-gxx-include-dir=/usr/lib/gcc/powerpc-unknown-linux-gnu/3.4.5/include/g++-v3
--host=powerpc-unknown-linux-gnu --build=powerpc-unknown-linux-gnu
--disable-altivec
--enable-nls --without-included-gettext --with-system-zlib --disable-checking
--disable-werror --disable-libunwind-exceptions --disable-multilib
--disable-libmudflap
--disable-libgcj --enable-languages=c,c++,objc,f77 --enable-shared
--enable-threads=posix
--enable-__cxa_atexit --enable-clocale=gnu
Thread model: posix
gcc version 3.4.5
Output from: gcc-3.4.5 -S on ppc computer (G4)
.file "q.f"
.section ".text"
.align 2
.globl qq_
.type qq_, @function
qq_:
stwu 1,-736(1)
mflr 0
stw 31,732(1)
stw 0,740(1)
mr 31,1
nop
.L2:
lwz 0,644(31)
cmpwi 7,0,0
bne 7,.L1
lwz 0,648(31)
cmpwi 7,0,1
bne 7,.L1
lwz 0,652(31)
cmpwi 7,0,0
bne 7,.L4
lis 9,[EMAIL PROTECTED]
lwz 0,[EMAIL PROTECTED](9)
stw 0,656(31)
lis 9,[EMAIL PROTECTED]
lis 11,[EMAIL PROTECTED]
lwz 9,[EMAIL PROTECTED](9)
lwz 0,[EMAIL PROTECTED](11)
cmpw 7,9,0
beq 7,.L5
li 0,1
stw 0,652(31)
.L5:
addi 0,31,664
addi 9,31,668
addi 11,31,668
addi 10,31,668
mr 3,0
mr 4,9
mr 5,11
mr 6,10
crxor 6,6,6
bl match_
mr 0,3
stw 0,660(31)
lwz 0,660(31)
cmpwi 7,0,0
bne 7,.L6
li 0,0
stw 0,656(31)
b .L1
.L6:
lwz 0,660(31)
cmpwi 7,0,1
bne 7,.L13
lwz 0,652(31)
cmpwi 7,0,1
bne 7,.L9
lis 9,[EMAIL PROTECTED]
lwz 0,672(31)
stw 0,[EMAIL PROTECTED](9)
lis 9,[EMAIL PROTECTED]
lwz 0,676(31)
stw 0,[EMAIL PROTECTED](9)
lis 9,[EMAIL PROTECTED]
lwz 0,680(31)
stw 0,[EMAIL PROTECTED](9)
lis 9,[EMAIL PROTECTED]
lwz 0,684(31)
stw 0,[EMAIL PROTECTED](9)
lis 9,[EMAIL PROTECTED]
lwz 0,688(31)
stw 0,[EMAIL PROTECTED](9)
lis 9,[EMAIL PROTECTED]
lwz 0,692(31)
stw 0,[EMAIL PROTECTED](9)
lis 9,[EMAIL PROTECTED]
lwz 0,696(31)
stw 0,[EMAIL PROTECTED](9)
lis 9,[EMAIL PROTECTED]
lwz 0,700(31)
stw 0,[EMAIL PROTECTED](9)
lis 9,[EMAIL PROTECTED]
lwz 0,704(31)
stw 0,[EMAIL PROTECTED](9)
b .L10
.L9:
li 0,0
stw 0,656(31)
b .L1
.L4:
nop
.L10:
lis 9,[EMAIL PROTECTED]
lwz 0,[EMAIL PROTECTED](9)
stw 0,656(31)
lis 9,[EMAIL PROTECTED]
lfs 0,[EMAIL PROTECTED](9)
stfs 0,708(31)
lis 9,[EMAIL PROTECTED]
lfs 0,[EMAIL PROTECTED](9)
stfs 0,712(31)
li 0,0
stw 0,652(31)
addi 0,31,668
addi 9,31,664
addi 11,31,668
addi 10,31,668
mr 3,0
mr 4,9
mr 5,11
mr 6,10
crxor 6,6,6
bl match_
mr 0,3
stw 0,660(31)
lwz 0,660(31)
cmpwi 7,0,2
bne 7,.L15
b .L13
.L15:
li 0,0
stw 0,656(31)
b .L1
.L13:
lwz 0,656(31)
stw 0,716(31)
.L1:
lwz 11,0(1)
lwz 0,4(11)
mtlr 0
lwz 31,-4(11)
mr 1,11
blr
.size qq_, .-qq_
.comm tensor_,1604,16
.comm couple_,776,16
.comm inform_,44,16
.comm kron_,400,16
.comm medefn_,660,16
.comm debug_,24,16
.comm terms_,1528,16
.comm consts_,40,16
.comm ovrlap_,84,16
.comm ovrint_,24,16
.comm machor_,8,16
.comm fact_,400,16
.comm ems_,28,16
.section .note.GNU-stack,"",@progbits
.ident "GCC: (GNU) 3.4.5"
Error Message using gcc-4.1.0-20051230
In file q.f:61
105 IRHO=NU
1
In file q.f:52
GO TO 105 ! rmg questionable goto
2
Error: Label at (1) is not in the same block as the GOTO statement at (2)
Using built-in specs. (for gcc-4.1.0)
Target: powerpc-unknown-linux-gnu
Configured with: ../gcc-4.1-20051230/configure
--enable-version-specific-runtime-libs --prefix=/usr
--bindir=/usr/powerpc-unknown-linux-gnu/gcc-bin/4.1.0-beta20051230
--includedir=/usr/lib/gcc/powerpc-unknown-linux-gnu/4.1.0-beta20051230/include
--datadir=/usr/share/gcc-data/powerpc-unknown-linux-gnu/4.1.0-beta20051230
--mandir=/usr/share/gcc-data/powerpc-unknown-linux-gnu/4.1.0-beta20051230/man
--infodir=/usr/share/gcc-data/powerpc-unknown-linux-gnu/4.1.0-beta20051230/info
--with-gxx-include-dir=/usr/lib/gcc/powerpc-unknown-linux-gnu/4.1.0-beta20051230/include/g++-v4
--enable-nls --without-included-gettext --with-system-zlib --disable-checking
--disable-werror --disable-libunwind-exceptions --disable-multilib
--enable-languages=all
--enable-shared --enable-threads=posix --enable-__cxa_atexit
--enable-clocale=gnu
Thread model: posix
gcc version 4.1.0 20051230 (prerelease)
--
Summary: fortran goto from inner IF to outer ELSE (more complex
than PR17708)
Product: gcc
Version: 4.1.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: malitzke at metronets dot com
GCC build triplet: powerpc-linux-gnu
GCC host triplet: powerpc-linux-gnu (really front-end)
GCC target triplet: powerpc-linux-gnu
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25705
