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