1! { dg-do compile }
2
3! The base procedure must have an accessible explicit interface when the
4! directive appears.
5
6program main
7  interface
8    subroutine base_proc ()
9    end subroutine
10  end interface
11
12  !$omp declare variant (base_proc: variant_proc) match (construct={parallel})
13  !$omp declare variant (base_proc2: variant_proc) match (construct={parallel}) ! { dg-error "The base procedure at .1. must have an explicit interface" }
14contains
15  subroutine variant_proc ()
16  end subroutine
17end program
18