forums.silverfrost.com

Thomas · Posted: Mon Mar 28, 2011 7:59 am Post subject: Character assignment

Please find below the short version of a program with an incorrect character assignment:

program testchar
Implicit None
Character (len=3), External :: WTPB03
Character (len=3) :: xxx

Type WTPROG_TA
Character (len=3) :: BZ(40)
End Type WTPROG_TA
Type (WTPROG_TA) :: TAAKT

TAAKT%BZ(1) = 'abc'
write (*,*) TAAKT%BZ(1)

! WTPB03 will not be called; '€€€' is assigned to BZ instead of 'xyz'
TAAKT%BZ(1) = WTPB03 ()
write (*,*) TAAKT%BZ(1)

! WTPB03 will be called; correct assignment to BZ
xxx = WTPB03 ()
TAAKT%BZ(1) = xxx
write (*,*) TAAKT%BZ(1)

end program

Function WTPB03 ()
Implicit None
Character (len=3) :: WTPB03
WTPB03 = 'xyz'
END

I'm using version 6.00 of FTN95.
_________________
Thomas

PaulLaidler · Posted: Mon Mar 28, 2011 8:43 am Post subject:

Yes ths looks like fault in the compiler that we need to fix.

Thomas · Posted: Wed Apr 06, 2011 8:02 am Post subject: FTN95 version prospect

Menwhile I installed version 6.10 of FTN95. A previous problem (mouse hover with SDBG) is solved now. But the character assignment ist still pending.

When do you expect to issue a FTN95 version with correct assignment?
_________________
Thomas

PaulLaidler · Posted: Wed Apr 06, 2011 8:27 am Post subject:

I will aim to have this fixed for the next release.
If you look back to the announcements in this forum you will get an impression of how frequently new releases appear.

Thomas

Paul,
I did not follow the progress for a longer period. Today I found the problem with faulty character assignment solved.

Thanks!

Thomas
_________________
Thomas