--- a/flang/test/Semantics/modfile25.f90	Mon May 25 11:55:54 2020 +0900
+++ b/flang/test/Semantics/modfile25.f90	Tue Jun 08 06:07:14 2021 +0900
@@ -1,4 +1,4 @@
-! RUN: %S/test_modfile.sh %s %t %f18
+! RUN: %S/test_modfile.sh %s %t %flang_fc1
 ! Test compile-time analysis of shapes.
 
 module m1
@@ -22,6 +22,9 @@
     real, intent(in) :: x(:,:)
     integer, intent(in) :: n1(3), n2(:)
     real, allocatable :: a(:,:,:)
+    ! the following fail if we don't handle empty strings
+    Character(0) :: ch1(1,2,3) = Reshape([('',n=1,1*2*3)],[1,2,3])
+    Character(0) :: ch2(3) = reshape(['','',''], [3])
     a = reshape(x,n1)
     a = reshape(x,n2(10:30:9)) ! fails if we can't figure out triplet shape
   end subroutine