+2012-03-02 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/52325
+ * primary.c (gfc_match_varspec): Add diagnostic for % with
+ nonderived types.
+
2012-03-02 Tobias Burnus <burnus@net-b.de>
PR fortran/52270
&& gfc_get_default_type (sym->name, sym->ns)->type == BT_DERIVED)
gfc_set_default_type (sym, 0, sym->ns);
+ if (sym->ts.type == BT_UNKNOWN && gfc_match_char ('%') == MATCH_YES)
+ {
+ gfc_error ("Symbol '%s' at %C has no IMPLICIT type", sym->name);
+ return MATCH_ERROR;
+ }
+ else if ((sym->ts.type != BT_DERIVED && sym->ts.type != BT_CLASS)
+ && gfc_match_char ('%') == MATCH_YES)
+ {
+ gfc_error ("Unexpected '%%' for nonderived-type variable '%s' at %C",
+ sym->name)
+ return MATCH_ERROR;
+ }
+
if ((sym->ts.type != BT_DERIVED && sym->ts.type != BT_CLASS)
|| gfc_match_char ('%') != MATCH_YES)
goto check_substring;
+2012-03-02 Tobias Burnus <burnus@net-b.de>
+
+ PR fortran/52325
+ * gfortran.dg/derived_comp_array_ref_8.f90: New.
+ * gfortran.dg/nullify_2.f90: Update dg-error.
+ * gfortran.dg/nullify_4.f90: Ditto.
+ * gfortran.dg/pointer_init_6.f90: Ditto.
+
2012-03-02 Tobias Burnus <burnus@net-b.de>
PR fortran/52270
--- /dev/null
+! { dg-do compile }
+!
+! PR fortran/52325
+!
+real :: f
+cc%a = 5 ! { dg-error "Symbol 'cc' at .1. has no IMPLICIT type" }
+f%a = 5 ! { dg-error "Unexpected '%' for nonderived-type variable 'f' at" }
+end
program i
implicit none
TYPE (a) t1 ! { dg-error "is being used before" }
- nullify(t1%x) ! { dg-error "error in NULLIFY" }
+ nullify(t1%x) ! { dg-error "Symbol 't1' at .1. has no IMPLICIT type" }
end program
! Check error recovery; was crashing before.
!
real, pointer :: ptr
-nullify(ptr, mesh%coarser) ! { dg-error "Syntax error in NULLIFY statement" }
+nullify(ptr, mesh%coarser) ! { dg-error "Symbol 'mesh' at .1. has no IMPLICIT type" }
end
type(t) :: x
procedure(s), pointer :: pp1 => s
procedure(s), pointer :: pp2 => pp1 ! { dg-error "may not be a procedure pointer" }
- procedure(s), pointer :: pp3 => t%ppc ! { dg-error "Syntax error" }
+ procedure(s), pointer :: pp3 => t%ppc ! { dg-error "Symbol 't' at .1. has no IMPLICIT type" }
contains