24 lines
520 B
Fortran
24 lines
520 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-std=gnu -Wsurprising" }
|
|
|
|
! PR fortran/30239
|
|
! Check for errors when a symbol gets declared a type twice, even if it
|
|
! is the same.
|
|
|
|
INTEGER FUNCTION foo ()
|
|
IMPLICIT NONE
|
|
INTEGER :: foo ! { dg-error "basic type of" }
|
|
INTEGER :: foo ! { dg-error "basic type of" }
|
|
foo = 42
|
|
END FUNCTION foo
|
|
|
|
INTEGER FUNCTION bar () RESULT (x)
|
|
IMPLICIT NONE
|
|
INTEGER :: x ! { dg-error "basic type of" }
|
|
|
|
INTEGER :: y
|
|
INTEGER :: y ! { dg-error "basic type of" }
|
|
|
|
x = 42
|
|
END FUNCTION bar
|