gfortran undefined reference error

[zmth]

integer:: ls1(2,4),mlis(2,4)
lenrec=1
nps=4

write(1,*)"ls1(1,1)",ls1(1,1)
write(1,*)"ls1(1,",ls1(1,
i=1
do while(ls1(1,i)==lsl(2,i).and.i<nps+1)
i=i+1
enddo
end


First of all it ignores the write statements if omit the do while...
As it is it gives 'undefined reference error to ls1'. Is this a bug in gfortran or what ?
Is there any way to make it work ?

 

[xwb]

It depends on what port 1 is - normally it is the input port. Try changing 1 to *. Either

write(*,*)"ls1(1,1)",ls1(1,1)

or

print "ls1(1,1)",ls1(1,1)

 

[zmth]

Ok now i recall the logical comparison can only use a redefined scalar so the following
gives no error.

integer:: ls1(2,4),mlis(2,4)
lenrec=1
nps=4
write(1,*)"ls1(1,1)",ls1(1,1)
write(1,*)"ls1(1,",ls1(1,
write(1,*)"ls1",ls1,"nps",nps
i1=ls1(1,1) ; i2=ls1(2,1)
i=1
do while(i1==i2.and.i<nps) ; i=i+1 ; i1=ls1(1,i) ; i2=ls1(2,i)
enddo
write(1,*)"i",i
end

BUT why in every write(1,*).... does it refuse to write to the console ?
I find this sometimes also in other programs but then sometimes it DOES write
to the screen. Seems to be no rhyme nor reason. I know can write it to a file
and usually does write the output but NOT always necessarily even in that case.

 

[zmth]

Thanks for the tip. The form

write(*,*)"ls1(1,1)",ls1(1,1)

DID work . Funny though because the write(1,*).... form did in fact write to the screen in most instances of other programs.

The
print "ls1(1,1)",ls1(1,1)
form did not and in fact gave error
Error: Missing leading left parenthesis in format string

 

[xwb]

Sorry - should have been

print *,"ls1(1,1)", ls1(1,1)

Not sure about using port 1. I haven't used specific port numbers for console I/O since I first used a F77 compiler in 1979.