Add new NAG 6.2, 7.0 bug test case

Author: nncarlson

nag-bugs/CMakeLists.txt

@@ -5,7 +5,8 @@ include(testing)
 
 project(nag-bug Fortran)
 
-add_compiler_test(SOURCES nag-20200110.f90 RUN_ONLY COMPILE_FLAGS "-O")
+add_compiler_test(SOURCES nag-20200124.f90 COMPILE_ONLY LABELS SR104818)
+add_compiler_test(SOURCES nag-20200110.f90 RUN_ONLY COMPILE_FLAGS "-O" LABELS SR104737)
 add_compiler_test(SOURCES nag-20190906.f90 RUN_ONLY LABELS SR104066)
 add_compiler_test(SOURCES nag-20190831.f90 RUN_ONLY LABELS SR104066)
 add_compiler_test(SOURCES nag-20190826a.f90 COMPILE_ONLY LABELS SR104042)

nag-bugs/nag-20200124.f90

@@ -0,0 +1,41 @@
+!! SR104818
+!!
+!! GENERIC FUNCTION LOSES CONTIGUOUS ATTRIBUTE
+!!
+!! The following example shows that the CONTIGUOUS attribute of an
+!! array pointer valued function is not being propagated to the
+!! generic function for which it is a specific procedure in some
+!! contexts. The error occurs for both 6.2 and 7.0, but not 6.1
+!!
+!! $ nagfor -w nag-20200124.f90 
+!! NAG Fortran Compiler Release 6.2(Chiyoda) Build 6253
+!! Error: nag-20200124.f90, line 34: Argument DP (no. 1) of FOO is a CONTIGUOUS
+!!                    pointer, but the actual argument is not simply contiguous
+!! [NAG Fortran Compiler error termination, 1 error, 1 warning]
+!!
+
+module contig_generic_ptr_func
+
+  interface dataptr
+    procedure dataptr1
+  end interface
+
+contains
+
+  function dataptr1() result(dp)
+    real, pointer, contiguous :: dp(:)
+    allocate(dp(10))
+  end function
+
+end module
+
+use contig_generic_ptr_func
+real, pointer, contiguous :: x(:)
+x => dataptr()        ! NO ERROR HERE
+call foo(dataptr1())  ! NO ERROR HERE
+call foo(dataptr())   ! BUT ERROR HERE
+contains
+  subroutine foo(dp)
+    real, pointer, contiguous :: dp(:)
+  end subroutine
+end