gcc/testsuite/gfortran.dg/pr77406.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-w" }
   3 module m
   4    interface s
   5       subroutine s1(*)  ! { dg-error "Ambiguous interfaces" }
   6       end
   7       subroutine s2(*)  ! { dg-error "Ambiguous interfaces" }
   8       end
   9    end interface
  10    interface t
  11       subroutine t1(*)
  12       end
  13       subroutine t2(*,*)
  14       end
  15    end interface
  16    interface u
  17       subroutine u1(*,x)
  18       end
  19       subroutine u2(*,i)
  20       end
  21    end interface
  22    interface v
  23       subroutine v1(*,*)  ! { dg-error "Ambiguous interfaces" }
  24       end
  25       subroutine v2(*,*)  ! { dg-error "Ambiguous interfaces" }
  26       end
  27    end interface
  28    interface w
  29       subroutine w1(*,i)  ! { dg-error "Ambiguous interfaces" }
  30       end
  31       subroutine w2(*,j)  ! { dg-error "Ambiguous interfaces" }
  32       end
  33    end interface
  34 end