diff --git a/gcc/ada/sfn_scan.adb b/gcc/ada/sfn_scan.adb
index b428ed7f0cf5a4777341e7349486402fc9eb8cb3..8ee9a0968f343e7c481e594d30ac16cf50e998ed 100644
--- a/gcc/ada/sfn_scan.adb
+++ b/gcc/ada/sfn_scan.adb
@@ -583,6 +583,7 @@ package body SFN_Scan is
 
          else
             Skip_Loop : loop
+               Skip_WS;
                exit Main_Scan_Loop when At_EOF;
                exit Skip_Loop when S (P) = ';';