1 files changed, 8 insertions, 0 deletions

diff --git a/src/lread.c b/src/lread.c
index f273ce60ec5..fa3b5cdd4ec 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2098,6 +2098,14 @@ read1 (readcharfun, pch, first_in_list)
 
           goto retry;
         }
+      if (c == '!')
+        {
+          /* #! appears at the beginning of an executable file.
+             Skip the first line.  */
+          while (c != '\n')
+            c = READCHAR;
+          goto retry;
+        }
       if (c == '$')
         return Vload_file_name;
       if (c == '\'')