re PR fortran/16433 (wrong hexadecimal constant warning)

PR fortran/16433
* gfortran.dg/pr16433.f: New test.

From-SVN: r84519

diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c
index ad9f42a3f7c6305c041a35582e238f14eec369af..f332b3415d5bf88f44683694757eb50aef5bd469 100644 (file)
--- a/gcc/fortran/expr.c
+++ b/gcc/fortran/expr.c
@@ -1736,7 +1736,8 @@ gfc_check_assign (gfc_expr * lvalue, gfc_expr * rvalue, int conform)
 
   if (rvalue->rank != 0 && lvalue->rank != rvalue->rank)
     {
-      gfc_error ("Incompatible ranks in assignment at %L", &lvalue->where);
+      gfc_error ("Incompatible ranks %d and %d in assignment at %L",
+                lvalue->rank, rvalue->rank, &lvalue->where);
       return FAILURE;
     }
 
@@ -1747,6 +1748,10 @@ gfc_check_assign (gfc_expr * lvalue, gfc_expr * rvalue, int conform)
       return FAILURE;
     }
 
+  if (rvalue->expr_type == EXPR_NULL)
+    gfc_warning ("NULL appears on right-hand side in assignment at %L",
+                &rvalue->where);
+
   /* Check size of array assignments.  */
   if (lvalue->rank != 0 && rvalue->rank != 0
       && gfc_check_conformance ("Array assignment", lvalue, rvalue) != SUCCESS)

diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt
index ff670d66f2b69b294dd86b69a819b2d23b20483c..598936547f11186d1f8af33166b30e9fd6b77ff0 100644 (file)
--- a/gcc/fortran/lang.opt
+++ b/gcc/fortran/lang.opt
@@ -97,6 +97,10 @@ fimplicit-none
 F95
 Specify that no implicit typing is allowed, unless overridden by explicit IMPLICIT statements
 
+ffixed-line-length-72
+F95 RejectNegative
+Use 72 character line width in fixed mode
+
 ffixed-line-length-80
 F95 RejectNegative
 Use 80 character line width in fixed mode

diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
index b0f9a76e5f2350e14fda9c7d45f906e30a14279a..a23773ef8395314b0d798646d7e2fc1ef4e1cb02 100644 (file)
--- a/gcc/fortran/options.c
+++ b/gcc/fortran/options.c
@@ -260,6 +260,10 @@ gfc_handle_option (size_t scode, const char *arg, int value)
       gfc_option.flag_repack_arrays = value;
       break;
 
+    case OPT_ffixed_line_length_72:
+      gfc_option.fixed_line_length = 72;
+      break;
+
     case OPT_ffixed_line_length_80:
       gfc_option.fixed_line_length = 80;
       break;