OSDN Git Service

PR fortran/16433
authortobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 11 Jul 2004 16:52:50 +0000 (16:52 +0000)
committertobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 11 Jul 2004 16:52:50 +0000 (16:52 +0000)
* gfortran.dg/pr16433.f: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84519 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/expr.c
gcc/fortran/lang.opt
gcc/fortran/options.c

index ad9f42a..f332b34 100644 (file)
@@ -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)
index ff670d6..5989365 100644 (file)
@@ -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
index b0f9a76..a23773e 100644 (file)
@@ -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;