2014-04-15 Richard Biener <rguenther@suse.de>
[official-gcc.git] / gcc / testsuite / gfortran.dg / named_interface.f90
blob90fea809fb0c984d57d48ad52fdde3247271e341
1 ! { dg-do compile }
2 ! PR 20363
3 module snafu
4 interface foo
5 subroutine really_snafu (foo)
6 integer, intent (inout) :: foo
7 end subroutine really_snafu
8 end interface foo
9 end module snafu