gcc/testsuite/gfortran.dg/pr95584.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! { dg-do compile }

program p
   interface s
      subroutine g(x, *)
      end
      subroutine h(y, *)
      end
   end interface
end

! { dg-warning "Obsolescent feature: Alternate-return argument" " " { target *-*-* } 5 }
! { dg-warning "Obsolescent feature: Alternate-return argument" " " { target *-*-* } 7 }
! { dg-error ".1." " " { target *-*-* } 5 }
! { dg-error "Ambiguous interfaces in generic interface" " " { target *-*-* } 7 }