[flang] Fix polymorphic-temp.f90 tests
authorValentin Clement <clementval@gmail.com>
Thu, 9 Feb 2023 19:30:49 +0000 (20:30 +0100)
committerValentin Clement <clementval@gmail.com>
Thu, 9 Feb 2023 19:30:49 +0000 (20:30 +0100)
flang/test/Lower/polymorphic-temp.f90

index 7858c95..12cf6c8 100644 (file)
@@ -129,7 +129,7 @@ contains
     class(p1), intent(in) :: a(20)
     integer :: shift
 
-    call check_pack(cshift(a, shift))
+    call check(cshift(a, shift))
   end subroutine
 
 ! CHECK-LABEL: func.func @_QMpoly_tmpPtest_temp_from_intrinsic_cshift(
@@ -150,7 +150,7 @@ contains
     class(p1), intent(in) :: b
     integer :: shift
 
-    call check_pack(eoshift(a, shift, b))
+    call check(eoshift(a, shift, b))
   end subroutine
 
 ! CHECK-LABEL: func.func @_QMpoly_tmpPtest_temp_from_intrinsic_eoshift(