X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Ffortran%2Foptions.c;h=d48bf24cdad8535b75e15ce79c64d1a7a4138003;hp=7a800ce8c66da5efcdb597445b2698a0cb72740b;hb=2b6bc4f258a7c3c8b492ac1a654eead47fcc9f4f;hpb=cb3582e73cdcb0d283d873e62bb1d1223085f687

diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
index 7a800ce8c66..d48bf24cdad 100644
--- a/gcc/fortran/options.c
+++ b/gcc/fortran/options.c
@@ -718,6 +718,8 @@ gfc_handle_option (size_t scode, const char *arg, int value)
 	gfc_option.flag_init_real = GFC_INIT_REAL_ZERO;
       else if (!strcasecmp (arg, "nan"))
 	gfc_option.flag_init_real = GFC_INIT_REAL_NAN;
+      else if (!strcasecmp (arg, "snan"))
+	gfc_option.flag_init_real = GFC_INIT_REAL_SNAN;
       else if (!strcasecmp (arg, "inf"))
 	gfc_option.flag_init_real = GFC_INIT_REAL_INF;
       else if (!strcasecmp (arg, "-inf"))