gcc/testsuite/gfortran.dg/gomp/declare-variant-3.f90

module main
contains
  subroutine f1 ()
  end subroutine
  subroutine f2 ()
    !$omp declare variant (f1) match (construct={target})
  end subroutine
  subroutine f3 ()
  end subroutine
  subroutine f4 ()
    !$omp declare variant (f3) match (construct={teams})
  end subroutine
  subroutine f5 ()
  end subroutine
  subroutine f6 ()
    !$omp declare variant (f5) match (construct={parallel})
  end subroutine
  subroutine f7 ()
  end subroutine
  subroutine f8 ()
    !$omp declare variant (f7) match (construct={do})
  end subroutine
  subroutine f9 ()
  end subroutine
  subroutine f10 ()
    !$omp declare variant (f9) match (construct={target,teams,parallel,do})
  end subroutine
  subroutine f11 ()
  end subroutine
  subroutine f12 ()
    !$omp declare variant (f11) match (construct={teams,do,parallel})
  end subroutine
  subroutine f13 ()
  end subroutine
  subroutine f14 ()
    !$omp declare variant (f13) match (device={kind(any)})
  end subroutine
  subroutine f15 ()
    !$omp declare variant (f13) match (device={kind("host")})
  end subroutine
  subroutine f16 ()
    !$omp declare variant (f13) match (device={kind(nohost)})
  end subroutine
  subroutine f17 ()
    !$omp declare variant (f13) match (device={kind(cpu)})
  end subroutine
  subroutine f18 ()
    !$omp declare variant (f13) match (device={kind("gpu")})
  end subroutine
  subroutine f19 ()
    !$omp declare variant (f13) match (device={kind(fpga)})
  end subroutine
  subroutine f20 ()
    !$omp declare variant (f13) match (device={kind(any,any)})
  end subroutine
  subroutine f21 ()
    !$omp declare variant (f13) match (device={kind(host,nohost)})
  end subroutine
  subroutine f22 ()
    !$omp declare variant (f13) match (device={kind("cpu","gpu","fpga")})
  end subroutine
  subroutine f23 ()
    !$omp declare variant (f13) match (device={kind(any,cpu,nohost)})
  end subroutine
  subroutine f24 ()
    !$omp declare variant (f13) match (device={isa(avx)})
  end subroutine
  subroutine f25 ()
    !$omp declare variant (f13) match (device={isa(sse4,"avx512f",avx512vl,avx512bw)})
  end subroutine
  subroutine f26 ()
    !$omp declare variant (f13) match (device={arch("x86_64")})
  end subroutine
  subroutine f27 ()
    !$omp declare variant (f13) match (device={arch(riscv64)})
  end subroutine
  subroutine f28 ()
    !$omp declare variant (f13) match (device={arch(nvptx)})
  end subroutine
  subroutine f29 ()
    !$omp declare variant (f13) match (device={arch(x86_64),isa("avx512f","avx512vl"),kind(cpu)})
  end subroutine
  subroutine f30 ()
    !$omp declare variant (f13) match (implementation={vendor(amd)})
  end subroutine
  subroutine f31 ()
    !$omp declare variant (f13) match (implementation={vendor(arm)})
  end subroutine
  subroutine f32 ()
    !$omp declare variant (f13) match (implementation={vendor("bsc")})
  end subroutine
  subroutine f33 ()
    !$omp declare variant (f13) match (implementation={vendor(cray)})
  end subroutine
  subroutine f34 ()
    !$omp declare variant (f13) match (implementation={vendor(fujitsu)})
  end subroutine
  subroutine f35 ()
    !$omp declare variant (f13) match (implementation={vendor(gnu)})
  end subroutine
  subroutine f36 ()
    !$omp declare variant (f13) match (implementation={vendor(ibm)})
  end subroutine
  subroutine f37 ()
    !$omp declare variant (f13) match (implementation={vendor("intel")})
  end subroutine
  subroutine f38 ()
    !$omp declare variant (f13) match (implementation={vendor(llvm)})
  end subroutine
  subroutine f39 ()
    !$omp declare variant (f13) match (implementation={vendor(pgi)})
  end subroutine
  subroutine f40 ()
    !$omp declare variant (f13) match (implementation={vendor(ti)})
  end subroutine
  subroutine f41 ()
    !$omp declare variant (f13) match (implementation={vendor(unknown)})
  end subroutine
  subroutine f42 ()
    !$omp declare variant (f13) match (implementation={vendor(gnu,llvm,intel,ibm)})
  end subroutine
  subroutine f43 ()
    !$omp declare variant (f13) match (implementation={extension(my_cute_extension)})	! { dg-warning "unknown property 'my_cute_extension' of 'extension' selector" }
  end subroutine
  subroutine f44 ()
    !$omp declare variant (f13) match (implementation={extension(some_other_ext,another_ext)})	! { dg-warning "unknown property 'some_other_ext' of 'extension' selector" }
												! { dg-warning "unknown property 'another_ext' of 'extension' selector" "" { target *-*-* } .-1 }
  end subroutine
  subroutine f45 ()
    !$omp declare variant (f13) match (implementation={unified_shared_memory})
  end subroutine
  subroutine f46 ()
    !$omp declare variant (f13) match (implementation={unified_address})
  end subroutine
  subroutine f47 ()
    !$omp declare variant (f13) match (implementation={dynamic_allocators})
  end subroutine
  subroutine f48 ()
    !$omp declare variant (f13) match (implementation={reverse_offload})
  end subroutine
  subroutine f49 ()
    !$omp declare variant (f13) match (implementation={atomic_default_mem_order(seq_cst)})
  end subroutine
  subroutine f50 ()
    !$omp declare variant (f13) match (implementation={atomic_default_mem_order(relaxed)})
  end subroutine
  subroutine f51 ()
    !$omp declare variant (f13) match (implementation={atomic_default_mem_order(acq_rel)})
  end subroutine
  subroutine f52 ()
    !$omp declare variant (f14) match (implementation={atomic_default_mem_order(acq_rel),vendor(gnu),&
    !$omp&					       unified_address,extension(foobar)}) ! { dg-warning "unknown property 'foobar' of 'extension' selector" "" { target *-*-* } .-1 }
  end subroutine
  subroutine f53 ()
    !$omp declare variant (f13) match (implementation={vendor(score(3):amd)})
  end subroutine
  subroutine f54 ()
    !$omp declare variant (f13) match (implementation={vendor(score(4):"arm")})
  end subroutine
  subroutine f55 ()
    !$omp declare variant (f13) match (implementation={vendor(score(5):bsc)})
  end subroutine
  subroutine f56 ()
    !$omp declare variant (f13) match (implementation={vendor(score(6):cray)})
  end subroutine
  subroutine f57 ()
    !$omp declare variant (f13) match (implementation={vendor(score(7):fujitsu)})
  end subroutine
  subroutine f58 ()
    !$omp declare variant (f13) match (implementation={vendor(score(8):gnu)})
  end subroutine
  subroutine f59 ()
    !$omp declare variant (f13) match (implementation={vendor(score(9):ibm)})
  end subroutine
  subroutine f60 ()
    !$omp declare variant (f13) match (implementation={vendor(score(10):intel)})
  end subroutine
  subroutine f61 ()
    !$omp declare variant (f13) match (implementation={vendor(score(11):llvm)})
  end subroutine
  subroutine f62 ()
    !$omp declare variant (f13) match (implementation={vendor(score(12):pgi)})
  end subroutine
  subroutine f63 ()
    !$omp declare variant (f13) match (implementation={vendor(score(13):"ti")})
  end subroutine
  subroutine f64 ()
    !$omp declare variant (f13) match (implementation={vendor(score(14):unknown)})
  end subroutine
  subroutine f65 ()
    !$omp declare variant (f13) match (implementation={vendor(score(15):gnu,llvm,intel,ibm)})
  end subroutine
  subroutine f66 ()
    !$omp declare variant (f13) match (implementation={extension(score(16):my_cute_extension)})	! { dg-warning "unknown property 'my_cute_extension' of 'extension' selector" }
  end subroutine
  subroutine f67 ()
    !$omp declare variant (f13) match (implementation={extension(score(17):some_other_ext,another_ext)})	! { dg-warning "unknown property 'some_other_ext' of 'extension' selector" }
  end subroutine												! { dg-warning "unknown property 'another_ext' of 'extension' selector" "" { target *-*-* } .-1 }
  subroutine f68 ()
    !$omp declare variant (f13) match (implementation={atomic_default_mem_order(score(18):seq_cst)})
  end subroutine
  subroutine f69 ()
    !$omp declare variant (f13) match (implementation={atomic_default_mem_order(score(19):relaxed)})
  end subroutine
  subroutine f70 ()
    !$omp declare variant (f13) match (implementation={atomic_default_mem_order(score(20):acq_rel)})
  end subroutine
  subroutine f71 ()
    !$omp declare variant (f13) match (implementation={atomic_default_mem_order(score(21):acq_rel),&
    !$omp&					       vendor(score(22):gnu),unified_address,extension(score(22):foobar)})	! { dg-warning "unknown property 'foobar' of 'extension' selector" "" { target *-*-* } .-1 }
  end subroutine
  subroutine f72 ()
    !$omp declare variant (f13) match (user={condition(0)})
  end subroutine
  subroutine f73 ()
    !$omp declare variant (f13) match (user={condition(272-272*1)})
  end subroutine
  subroutine f74 ()
    !$omp declare variant (f13) match (user={condition(score(25):1)})
  end subroutine
  subroutine f75 ()
    !$omp declare variant (f13) match (device={kind(any,"any")})
  end subroutine
  subroutine f76 ()
    !$omp declare variant (f13) match (device={kind("any","any")})
  end subroutine
  subroutine f77 ()
    !$omp declare variant (f13) match (device={kind("any",any)})
  end subroutine
  subroutine f78 ()
    !$omp declare variant (f13) match (implementation={vendor(nvidia)})
  end subroutine
  subroutine f79 ()
    !$omp declare variant (f13) match (user={condition(score(0):0)})
  end subroutine

  end module