2 ! { dg-options "-std=gnu -Wsurprising" }
5 ! Check for errors when a symbol gets declared a type twice, even if it
8 INTEGER FUNCTION foo ()
10 INTEGER :: foo
! { dg-error "basic type of" }
11 INTEGER :: foo
! { dg-error "basic type of" }
15 INTEGER FUNCTION bar () RESULT (x
)
17 INTEGER :: x
! { dg-error "basic type of" }
20 INTEGER :: y
! { dg-error "basic type of" }