feat(intrinsic_array_m): support assumed-rank

This commit removes preprocessor macros that were designed to work
around the NAG compiler's previous lack of supprot for unlimited
polymorphic, assumed-rank dummy arguments.  Without the macros, all
tests now pass with the NAG Fortran Compiler Release 7.1(Hanzomon)
Build 7119.

Author: rouson

src/intrinsic_array_m.F90 src/intrinsic_array_m.f90src/intrinsic_array_m.F90 renamed to src/intrinsic_array_m.f90

@@ -35,11 +35,7 @@ module intrinsic_array_m
 
     pure module function construct(array) result(intrinsic_array)
       implicit none
-#ifndef NAGFOR
       class(*), intent(in) :: array(..)
-#else
-      class(*), intent(in) :: array(:)
-#endif
       type(intrinsic_array_t) intrinsic_array
     end function
 

src/intrinsic_array_s.F90 src/intrinsic_array_s.f90src/intrinsic_array_s.F90 renamed to src/intrinsic_array_s.f90

@@ -5,10 +5,8 @@
 
   module procedure construct
 
-#ifndef NAGFOR
   select rank(array)
     rank(1)
-#endif
       select type(array)
       type is(complex)
         allocate(intrinsic_array%complex_1D, source = array)
@@ -23,7 +21,6 @@
       class default
         error  stop "intrinsic_array_t construct: unsupported rank-2 type"
       end select
-#ifndef NAGFOR
     rank(2)
       select type(array)
       type is(complex)
@@ -59,7 +56,6 @@
     rank default
       error  stop "intrinsic_array_t construct: unsupported rank"
     end select
-#endif
 
   end procedure