looprange constant parameter test

Author: Ferran Toda

flang/lib/Lower/OpenMP/OpenMP.cpp

@@ -3476,6 +3476,7 @@ static void genOMPDispatch(lower::AbstractConverter &converter,
       TODO(loc, "Unhandled loop directive (" +
                     llvm::omp::getOpenMPDirectiveName(dir, version) + ")");
     break;
+                                        }
   case llvm::omp::Directive::OMPD_unroll:
     genUnrollOp(converter, symTable, stmtCtx, semaCtx, eval, loc, queue, item);
     break;

flang/test/Semantics/OpenMP/loop-transformation-clauses01.f90

@@ -7,6 +7,7 @@ subroutine loop_transformation_construct1
   implicit none
   integer, parameter:: i = 5
   integer :: x
+  integer :: a
   integer :: v(i)
 
   !ERROR: At most one LOOPRANGE clause can appear on the FUSE directive
@@ -48,4 +49,18 @@ subroutine loop_transformation_construct1
     v(x) = x * 2
   end do
   !$omp end fuse
+
+  !ERROR: Must be a constant value
+  !$omp fuse looprange(a,2)
+  do x = 1, i
+    v(x) = x * 2
+  end do
+  !$omp end fuse
+
+  !ERROR: Must be a constant value
+  !$omp fuse looprange(1,a)
+  do x = 1, i
+    v(x) = x * 2
+  end do
+  !$omp end fuse
 end subroutine