| ! { 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-warning "basic type of" } | |
| INTEGER :: foo ! { dg-warning "basic type of" } | |
| foo = 42 | |
| END FUNCTION foo | |
| INTEGER FUNCTION bar () RESULT (x) | |
| IMPLICIT NONE | |
| INTEGER :: x ! { dg-warning "basic type of" } | |
| INTEGER :: y | |
| INTEGER :: y ! { dg-error "basic type of" } | |
| x = 42 | |
| END FUNCTION bar |