This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
g77 bug Alpha/Intel, LEN and // on WRITE statement
- To: egcs-bugs at egcs dot cygnus dot com
- Subject: g77 bug Alpha/Intel, LEN and // on WRITE statement
- From: David McNamara <dave at psrv dot psrv dot com> (by way of David McNamara <dave at vcnet dot com>)
- Date: Thu, 03 Jun 1999 17:20:33 -0700
I tried to Email this from my work place but got an error message that
our server was on some list as not being secure against spammers...
So, I'm sending this from my home Email. Please send any response to
both dave@vcnet.com and dave@psrv.com, thank you.
Dear Sirs:
I believe I have discovered a problem with g77 on both Alpha and Intel
platforms
Alpha -- egcs-2.90.29
Intel -- egcs-2.91.66
The problem involves using the LEN intrinsic for string indexing:
PROGRAM CONFIGURATION
CALL LECTURE_PARAMETRES ('/home/mine/tmp/' )
END
SUBROUTINE LECTURE_PARAMETRES(CHEMIN_COURANT )
CHARACTER CHEMIN_COURANT*(*)
character*(100) heap__
CHARACTER CHEMIN
EQUIVALENCE (CHEMIN,HEAP__)
INTEGER CHEMIN_
CHARACTER A1*500
CHEMIN(1:LEN(CHEMIN_COURANT)) = CHEMIN_COURANT
! doing write(*,*)chemin works ok too
! this does not work
WRITE (*, *) ':'//CHEMIN(1:LEN(CHEMIN_COURANT))//
1 ':'
! this works
A1 = CHEMIN(1:LEN(CHEMIN_COURANT))
j6 = len(chemin_courant)
WRITE (*, *) ':'//A1(1:J6)//':'
END
Output:
:/h@×ûÿ¿×î
:/home/mine/tmp/:
When a temp is introduced, the expected results are achieved. Without the
temp,
there is garbage.
Thanks in advance.
Best Regards,
David
--
=================================================================
David McNamara
Sofware Development Manager, Compiler Technology Group
Pacific-Sierra Research Corp.
2901 28th Street
Santa Monica, CA 90405
(310)314-2338, Fax (310)314-2323, Email: dave@psrv.com
WWW: http://www.psrv.com/
=================================================================