forums.silverfrost.com

[Trondheimer]

Given the following straight forward recursive subroutine:

RECURSIVE SUBROUTINE fakultet_sub( n, fak )
IMPLICIT NONE
INTEGER, INTENT( IN ) :: n
INTEGER, INTENT( OUT ) :: fak
INTEGER :: resultat
IF ( n == 0 ) THEN
fak = 1
ELSE
CALL fakultet_sub( n - 1, resultat )
fak = n * resultat
END IF
END SUBROUTINE fakultet_sub

The compiler (version 5.10) gives up with the following rather curious message:

fakultet_sub.F95(9) : error 831 - This expression cannot receive a value, in the call to FAKULTET_SUB, with argument 1 ('FAK') which has been declared as INTENT(OUT)

This is obviously a compiler error. It must have been introduced with version 5.10.

[PaulLaidler]

I can confirm that this is a bug and a regression.
We will investigate the matter.
Unfortunately a fix will not be ready for the impending release.

In the meantime it is necessary to use /ignore 831 on the command line.

[PaulLaidler]

This regression has now been fixed for the next release.