LAPACK SUBROUTINE WILL NOT COMPILE IN PLATO 32

The LAPACK SUBROUTINE DLAMCH will not compile in the latest version of the personal edition of PLATO 32. (It did successfully compile in an earlier version.)

The offending line of code appears to be 'SMALL = ONE / HUGE(ZERO)' where all variables are DOUBLE PRECISION.

Please help.

Which version of FTN95 are you using? You probably need the latest FTN95 from https://forums.silverfrost.com/Forum/Topic/3780.

Try this variation: SMALL = TINY(ZERO)

Paul reported fixing an equivalent issue here in March of this year, and suggested mecej4's proposed solution: http://forums.silverfrost.com/viewtopic.php?p=35971&highlight=#35971

Thanks for the link, Ken. Perhaps the code fragments that we have seen in these threads can be combined into a test program that can be used to check if a new release of the compiler can handle such codes without issues.