From 5cdae7b45253cb924318bc1e236a9e17be1c8ce7 Mon Sep 17 00:00:00 2001
From: DRvanR <dvrenterghem@ibuildings.nl>
Date: Wed, 6 Jul 2016 09:16:22 +0200
Subject: [PATCH] The raffler reads the full name, including spaces

---
 drvanr-FORTRAN/raffler.F | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/drvanr-FORTRAN/raffler.F b/drvanr-FORTRAN/raffler.F
index acebb9b..f5754c2 100644
--- a/drvanr-FORTRAN/raffler.F
+++ b/drvanr-FORTRAN/raffler.F
@@ -47,11 +47,11 @@ PROGRAM MAIN
             ! Read the amount of lines up to the line containing the
             ! winner
             DO ITER=1,WinnerLine
-              READ(1,*)
+              READ(1,'(A)')
             ENDDO
 
             ! Read the line containing the winner
-            READ(1,*) Winner
+            READ(1,'(A)') Winner
 
             ! **PARTY**
             PRINT*, "Ladies and Gentlemen, the winner is: " // Winner