2 ! PR35680 - used to ICE because the argument of SIZE, being in a restricted
3 ! expression, was not checked if it too is restricted or is a variable. Since
4 ! it is neither, an error should be produced.
6 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
9 print *, foo (), bar (), foobar ()
12 integer foo(size (transfer (x
, [1]))) ! { dg-error "cannot appear" }
17 integer bar(size (transfer (x
, [1]))) ! { dg-error "cannot appear" }
19 function foobar() ! { dg-error "no IMPLICIT" }
21 integer foobar(size (transfer (x
, [1]))) ! { dg-error "used before" }