------- Comment #1 from kargl at gcc dot gnu dot org 2007-04-13 19:05 ------- The code is illegal, but in accordance with the error message. You need to set WHICH to 1 via either
INTEGER :: which = 1
or
which = 1
This however doesn't fix the problem. If you change the call to
CALL set_bound(the_beta%parameters(1))
then it compiles. So, it looks as if gfortran isn't
properly evaluating the derived type arguments.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31564
