2 ! Test the fix for the fourth problem in PR40011, where the
3 ! entries were not resolved, resulting in a segfault.
5 ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
10 integer :: bad_stuff (2)
12 end function bad_stuff
13 recursive function rec_stuff(n
) result (tmp
)
14 integer :: n(2), tmp(2)
15 end function rec_stuff
18 res
= bad_stuff((/-19,-30/))
22 recursive function bad_stuff(n
)
23 integer :: bad_stuff (2)
24 integer :: n(2), tmp(2), ent
= 0, sent
= 0
27 entry rec_stuff(n
) result (tmp
)
34 if(maxval (n
) < 5) then
35 tmp
= tmp
+ rec_stuff (n
+1)
40 bad_stuff
= tmp
+ bad_stuff (1)
45 end function bad_stuff