[PATCH,fortran]: fix for PR 33395

[Tobias Burnus]

:REVIEWMAIL:

Christopher D. Rickett wrote:
> bootstrapped and regtested on x86 and x86_64 linux with no new failures.
OK. Checked in as Rev. 128418.

Note: In

   if (!(expr || pointer))
     return NULL_TREE;
[...]
   if (expr != NULL && expr->ts.type == BT_DERIVED


I removed the "expr != NULL &&" as this can never happen due to the
first if.

Thanks for the quick fix. GFSL - a Fortran interface to the GSL (GNU
Scientific Library) - works now :-)
http://www.lrz-muenchen.de/services/software/mathematik/gsl/fortran/

However, the test case fails as formatted read does not work if the file
does not end with a line break (PR 33400); if one works around this
problem, the test suite succeeds.

Tobias