[Bug fortran/48279] [4.6/4.7 Regression] segfault in gfc_check_vardef_context

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48279

--- Comment #8 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-03-29 06:26:50 UTC ---
(In reply to comment #7)
>   call set1 (get (h))

>   subroutine set1 (a)
>     integer, intent(inout) :: a

If one changes the (invalid) INOUT to IN, it compiles.

 * * *

Additionally, for the modified program, I think NAG is correct with the
following error - gfortran just compiles it:

   Error: GET1 in generic GET is an internal procedure

>From F2008, "12.4.3.4.1 Generic identifiers":
"The PROCEDURE statement lists procedure pointers, external procedures, dummy
procedures, or module procedures that have this generic interface."

(However, g95, pgf95 and crayftn also compile it, thus, I might misread F2008.)