X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Ffortran%2Foptions.c;h=6c6ccb1046122247a21b11c05d49bfff4b480597;hp=f8d600b469273135638909802024be482724d944;hb=a5fe80bda946d6ee8023587c37963d8b6612a730;hpb=3ae54e9bf7d06e522bbd0be57337ce9dd43b6704

diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
index f8d600b4692..6c6ccb10461 100644
--- a/gcc/fortran/options.c
+++ b/gcc/fortran/options.c
@@ -719,7 +719,7 @@ gfc_handle_option (size_t scode, const char *arg, int value,
       break;
 
     case OPT_fwhole_file:
-      gfc_option.flag_whole_file = 1;
+      gfc_option.flag_whole_file = value;
       break;
 
     case OPT_fsecond_underscore: