remove mistakenly added files

Author: akuhlens

flang/lib/Semantics/check-declarations.cpp

@@ -3622,7 +3622,6 @@ void CheckHelper::CheckDioDtvArg(const Symbol &proc, const Symbol &subp,
                 ioKind == common::DefinedIo::ReadUnformatted
             ? Attr::INTENT_INOUT
             : Attr::INTENT_IN);
-    CheckDioDummyIsScalar(subp, *arg);
   }
 }
 
@@ -3688,7 +3687,6 @@ void CheckHelper::CheckDioAssumedLenCharacterArg(const Symbol &subp,
           "Dummy argument '%s' of a defined input/output procedure must be assumed-length CHARACTER of default kind"_err_en_US,
           arg->name());
     }
-    CheckDioDummyIsScalar(subp, *arg);
   }
 }
 

flang/test/Semantics/io11.f90

@@ -809,24 +809,3 @@ subroutine wf(dtv, unit, iotype, v_list, iostat, iomsg)
     end
   end interface
 end
-
-module m30
-    type base
-        character(5), allocatable :: data
-    end type
-    interface write(formatted)
-        subroutine formattedRead (dtv, unit, iotype, v_list, iostat, iomsg)
-        import base
-            !ERROR: Dummy argument 'dtv' of a defined input/output procedure must be a scalar
-            class (base), intent(in) :: dtv(10)
-            integer, intent(in) :: unit
-            !ERROR: Dummy argument 'iotype' of a defined input/output procedure must be a scalar
-            character(*), intent(in) :: iotype(2)
-            integer, intent(in) :: v_list(:)
-            !ERROR: Dummy argument 'iostat' of a defined input/output procedure must be a scalar
-            integer, intent(out) :: iostat(*)
-            !ERROR: Dummy argument 'iomsg' of a defined input/output procedure must be a scalar
-            character(*), intent(inout) :: iomsg(:)
-        end subroutine
-    end interface
-end module