Add test and fix wording

Author: jsjodin

flang/lib/Lower/OpenMP/OpenMP.cpp

@@ -3675,8 +3675,8 @@ getReductionType(lower::AbstractConverter &converter,
 
   if (!isSimpleReductionType(reductionType))
     TODO(converter.getCurrentLocation(),
-         "declare reduction using currently only supports trival types or "
-         "derived types containing trivial types");
+         "declare reduction currently only supports trival types or derived "
+         "types containing trivial types");
   return reductionType;
 }
 

flang/test/Lower/OpenMP/Todo/omp-declare-reduction-advanced-types.f90

@@ -0,0 +1,19 @@
+! This test checks lowering of OpenMP declare reduction with non-trivial types
+
+! RUN: not %flang_fc1 -emit-fir -fopenmp %s 2>&1 | FileCheck %s
+
+module mymod
+  type advancedtype
+     integer(4)::myarray(10)
+     integer(4)::val
+     integer(4)::otherval
+  end type advancedtype
+  !CHECK: not yet implemented: declare reduction currently only supports trival types or derived types containing trivial types
+  !$omp declare reduction(myreduction: advancedtype: omp_out = omp_in) initializer(omp_priv = omp_orig)
+end module mymod
+
+program mymaxtest
+  use mymod
+
+end program
+