26 lines
471 B
Fortran
26 lines
471 B
Fortran
! { dg-do compile }
|
|
! PR fortran/84922
|
|
! This should compile without error.
|
|
module foom
|
|
|
|
implicit none
|
|
|
|
interface foo
|
|
module procedure foo_sngl
|
|
module procedure foo_dble
|
|
end interface foo
|
|
|
|
contains
|
|
|
|
subroutine foo_sngl(n, f, g, h)
|
|
integer n
|
|
real f, g, h
|
|
end subroutine foo_sngl
|
|
|
|
subroutine foo_dble(n, f, g, h)
|
|
integer n
|
|
double precision f, g, h
|
|
end subroutine foo_dble
|
|
|
|
end module foom
|