diff --git a/flang/test/semantics/deallocate01.f90 b/flang/test/semantics/deallocate01.f90
index a8ecdbd14dd8..978ee44aff37 100644
--- a/flang/test/semantics/deallocate01.f90
+++ b/flang/test/semantics/deallocate01.f90
@@ -31,7 +31,7 @@ CHARACTER(256) :: e
 
 Integer, Pointer :: pi
 
-Allocate(p)
+Allocate(pi)
 Allocate(x(3))
 
 Deallocate(x(2)%p)