1! { dg-do compile } 2! Test fix for PR16943 in which the double typing of 3! N caused an error. 4! 5! Contributed by Paul Thomas <pault@gcc.gnu.org> 6! 7 program bug8 8 implicit none 9 stop " OK. " 10 11 contains 12 13 integer function bugf(M) result (N) 14 integer, intent (in) :: M 15 integer :: N ! { dg-error "already has basic type of INTEGER" } 16 N = M 17 return 18 end function bugf 19 end program bug8 20