| ! { dg-do compile } | |
| ! Test fix for PR16943 in which the double typing of | |
| ! N caused an error. This is a common extension to the | |
| ! F95 standard, so the error is only thrown for -std=f95 | |
| ! or -pedantic. | |
| ! | |
| ! Contributed by Paul Thomas <pault@gcc.gnu.org> | |
| ! | |
| program bug8 | |
| implicit none | |
| stop " OK. " | |
| contains | |
| integer function bugf(M) result (N) | |
| integer, intent (in) :: M | |
| integer :: N ! { dg-warning "already has basic type of INTEGER" } | |
| N = M | |
| return | |
| end function bugf | |
| end program bug8 |