This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[patch, fortran, committed] PR31812 Better message when truncating long lines


I am committing the following as obvious and simple. Gives a warning all the time for free format when a line gets truncated.

Index: parse.c
===================================================================
*** parse.c     (revision 125102)
--- parse.c     (working copy)
*************** next_statement (void)
*** 653,659 ****

        if (gfc_at_eol ())
        {
!         if (gfc_option.warn_line_truncation
              && gfc_current_locus.lb
              && gfc_current_locus.lb->truncated)
            gfc_warning_now ("Line truncated at %C");
--- 653,659 ----

        if (gfc_at_eol ())
        {
!         if ((gfc_option.warn_line_truncation || gfc_current_form == FORM_FREE)
              && gfc_current_locus.lb
              && gfc_current_locus.lb->truncated)
            gfc_warning_now ("Line truncated at %C");


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]