Roland Stigge <stigge@antcom.de>
PR translation/52232
PR translation/52234
PR translation/52245
PR translation/52246
PR translation/52262
PR translation/52273
* io.c (gfc_match_open): Fix typo.
* interface.c (compare_actual_formal): Ditto.
* lang.opt (freal-4-real-8, freal-4-real-16, freal-8-real-16):
* Ditto.
* match.c (alloc_opt_list, gfc_match_nullify): Ditto.
* check.c (gfc_check_associated, gfc_check_null): Ditto.
2012-02-17 Tobias Burnus <burnus@net-b.de>
PR translation/52232
PR translation/52234
PR translation/52245
PR translation/52246
PR translation/52262
PR translation/52273
* gfortran.dg/coarray_22.f90: Update dg-error.
* gfortran.dg/allocate_alloc_opt_4.f90: Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@184331
138bc75d-0d04-0410-961f-
82ee72b054a4
+2012-02-17 Tobias Burnus <burnus@net-b.de>
+ Roland Stigge <stigge@antcom.de>
+
+ PR translation/52232
+ PR translation/52234
+ PR translation/52245
+ PR translation/52246
+ PR translation/52262
+ PR translation/52273
+ * io.c (gfc_match_open): Fix typo.
+ * interface.c (compare_actual_formal): Ditto.
+ * lang.opt (freal-4-real-8, freal-4-real-16, freal-8-real-16): Ditto.
+ * match.c (alloc_opt_list, gfc_match_nullify): Ditto.
+ * check.c (gfc_check_associated, gfc_check_null): Ditto.
+
2012-02-12 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/50981
if (attr1.pointer && gfc_is_coindexed (pointer))
{
gfc_error ("'%s' argument of '%s' intrinsic at %L shall not be "
- "conindexed", gfc_current_intrinsic_arg[0]->name,
+ "coindexed", gfc_current_intrinsic_arg[0]->name,
gfc_current_intrinsic, &pointer->where);
return FAILURE;
}
if (attr1.pointer && gfc_is_coindexed (target))
{
gfc_error ("'%s' argument of '%s' intrinsic at %L shall not be "
- "conindexed", gfc_current_intrinsic_arg[1]->name,
+ "coindexed", gfc_current_intrinsic_arg[1]->name,
gfc_current_intrinsic, &target->where);
return FAILURE;
}
if (gfc_is_coindexed (mold))
{
gfc_error ("'%s' argument of '%s' intrinsic at %L shall not be "
- "conindexed", gfc_current_intrinsic_arg[0]->name,
+ "coindexed", gfc_current_intrinsic_arg[0]->name,
gfc_current_intrinsic, &mold->where);
return FAILURE;
}
&& a->expr->ts.type == BT_CHARACTER)
{
if (where)
- gfc_error ("Actual argument argument at %L to allocatable or "
+ gfc_error ("Actual argument at %L to allocatable or "
"pointer dummy argument '%s' must have a deferred "
"length type parameter if and only if the dummy has one",
&a->expr->where, f->sym->name);
{
if (where)
gfc_error ("Coindexed ASYNCHRONOUS or VOLATILE actual argument at "
- "at %L requires that dummy %s' has neither "
+ "at %L requires that dummy '%s' has neither "
"ASYNCHRONOUS nor VOLATILE", &a->expr->where,
f->sym->name);
return 0;
/* Checks on the ROUND specifier. */
if (open->round)
{
- if (gfc_notify_std (GFC_STD_F2003, "Fortran F2003: ROUND= at %C "
+ if (gfc_notify_std (GFC_STD_F2003, "Fortran 2003: ROUND= at %C "
"not allowed in Fortran 95") == FAILURE)
goto cleanup;
freal-4-real-8
Fortran RejectNegative
-Interpret any REAl(4) as a REAL(8)
+Interpret any REAL(4) as a REAL(8)
freal-4-real-10
Fortran RejectNegative
freal-4-real-16
Fortran RejectNegative
-Interpret any REAL(4) as a REAl(16)
+Interpret any REAL(4) as a REAL(16)
freal-8-real-4
Fortran RejectNegative
freal-8-real-16
Fortran RejectNegative
-Interpret any REAL(8) as a REAl(16)
+Interpret any REAL(8) as a REAL(16)
frealloc-lhs
Fortran
if (head->next
&& gfc_notify_std (GFC_STD_F2008, "Fortran 2008: SOURCE tag at %L"
- " with more than a single allocate objects",
+ " with more than a single allocate object",
&tmp->where) == FAILURE)
goto cleanup;
/* F2008, C1242. */
if (gfc_is_coindexed (p))
{
- gfc_error ("Pointer object at %C shall not be conindexed");
+ gfc_error ("Pointer object at %C shall not be coindexed");
goto cleanup;
}
+2012-02-17 Tobias Burnus <burnus@net-b.de>
+
+ PR translation/52232
+ PR translation/52234
+ PR translation/52245
+ PR translation/52246
+ PR translation/52262
+ PR translation/52273
+ * gfortran.dg/coarray_22.f90: Update dg-error.
+ * gfortran.dg/allocate_alloc_opt_4.f90: Ditto.
+
2012-02-17 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
PR target/51753
allocate(integer(4) :: i(4), source=n) ! { dg-error "conflicts with the typespec" }
- allocate(i(4), j(n), source=n) ! { dg-error "Fortran 2008: SOURCE tag at .1. with more than a single allocate objects" }
+ allocate(i(4), j(n), source=n) ! { dg-error "Fortran 2008: SOURCE tag at .1. with more than a single allocate object" }
allocate(x(4), source=n) ! { dg-error "type incompatible with" }
if (associated(x%ptr)) stop 0
if (associated(x%ptr,y%ptr)) stop 0
-if (associated(x[1]%ptr)) stop 0 ! { dg-error "shall not be conindexed" }
-if (associated(x%ptr,y[1]%ptr)) stop 0 ! { dg-error "shall not be conindexed" }
+if (associated(x[1]%ptr)) stop 0 ! { dg-error "shall not be coindexed" }
+if (associated(x%ptr,y[1]%ptr)) stop 0 ! { dg-error "shall not be coindexed" }
nullify (x%ptr)
-nullify (x[1]%ptr) ! { dg-error "shall not be conindexed" }
+nullify (x[1]%ptr) ! { dg-error "shall not be coindexed" }
x%ptr => null(x%ptr)
-x%ptr => null(x[1]%ptr) ! { dg-error "shall not be conindexed" }
+x%ptr => null(x[1]%ptr) ! { dg-error "shall not be coindexed" }
x[1]%ptr => null(x%ptr) ! { dg-error "shall not have a coindex" }
allocate(x%ptr)