From 73aff975646a49e3178a123e2181fc0ca8c2b68e Mon Sep 17 00:00:00 2001
From: Dan Palermo <dan.palermo@amd.com>
Date: Wed, 24 Jun 2026 19:47:43 -0500
Subject: [PATCH] [smoke-dev] flang-273759 - fix undefined omp_q

---
 test/smoke-dev/flang-273759/flang-273759.f95 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/smoke-dev/flang-273759/flang-273759.f95 b/test/smoke-dev/flang-273759/flang-273759.f95
index eeb532a267..5a84eaab8d 100644
--- a/test/smoke-dev/flang-273759/flang-273759.f95
+++ b/test/smoke-dev/flang-273759/flang-273759.f95
@@ -1,8 +1,9 @@
 ! example of simple Fortran AMD GPU offloading
 program main
+  implicit none
   parameter (nsize=1000)
   real a(nsize), b(nsize), c(nsize)
-  integer i
+  integer i, nsize
 
   do i=1,nsize
     a(i)=0
@@ -24,9 +25,10 @@ program main
 ! call exit(1)
 end
 subroutine foo(a,b,c)
+  implicit none
   parameter (nsize=1000)
   real a(nsize), b(nsize), c(nsize)
-  integer i
+  integer i, omp_q, nsize
 !$omp target map(from:a) map(to:b,c) depend(out:omp_q)
 !$omp parallel do
   do i=1,nsize