forums.silverfrost.com

[Thomas]

The attached fortran source file can not be compiled if the Format Statement is located before the assignment y = ...
The error does not occur if the Format Statement is moved behind the assignment.


Subroutine Fehler(x, y)
Implicit None
Integer, Intent(in) :: x
Integer, Intent(out) :: y
Character (Len=20) :: Text

1000 Format('Test:', I10)

y = Quadrat(x)

!$$$$$$ 1000 Format('Test:', I10)
Write(Text, 1000) y

Contains

Integer Function Quadrat(Value)
Integer, Intent(in) :: Value
Quadrat = Value * Value
End Function Quadrat

End Subroutine Fehler
_________________
Thomas

[PaulLaidler]

Thanks. I have logged this for investigation.

[mecej4]

It may have something to do with the first statement after the declarations being a Format statement. I found that adding "y=x" before the Format statement makes the problem go away.

The problem needs to be fixed, however.

[PaulLaidler]

This bug has now been fixed for the next release.