You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
81 lines
2.5 KiB
81 lines
2.5 KiB
commit 63256634cd46529bb3e839838f03dc4164feaa4c |
|
Author: foreese <foreese@138bc75d-0d04-0410-961f-82ee72b054a4> |
|
Date: Thu Aug 10 12:36:44 2017 +0000 |
|
|
|
2017-08-10 Fritz Reese <Reese-Fritz@zai.com> |
|
|
|
gcc/fortran/ChangeLog: |
|
|
|
* options.c (set_dec_flags, gfc_post_options): Only set flag_d_lines |
|
with -fdec when not set by user. |
|
|
|
gcc/testsuite/ChangeLog: |
|
|
|
gfortran.dg/ |
|
* dec_d_lines_1.f, dec_d_lines_2.f: New. |
|
|
|
|
|
|
|
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@251024 138bc75d-0d04-0410-961f-82ee72b054a4 |
|
|
|
diff --git gcc/fortran/options.c gcc/fortran/options.c |
|
index 283c8354e06..cd254e93229 100644 |
|
--- gcc/fortran/options.c |
|
+++ gcc/fortran/options.c |
|
@@ -57,9 +57,6 @@ set_dec_flags (int value) |
|
| GFC_STD_GNU | GFC_STD_LEGACY; |
|
gfc_option.warn_std &= ~(GFC_STD_LEGACY | GFC_STD_F95_DEL); |
|
|
|
- /* Set -fd-lines-as-comments by default. */ |
|
- if (value && gfc_current_form != FORM_FREE && gfc_option.flag_d_lines == -1) |
|
- gfc_option.flag_d_lines = 0; |
|
|
|
/* Set other DEC compatibility extensions. */ |
|
flag_dollar_ok |= value; |
|
@@ -339,8 +336,15 @@ gfc_post_options (const char **pfilename) |
|
diagnostic_classify_diagnostic (global_dc, OPT_Wline_truncation, |
|
DK_ERROR, UNKNOWN_LOCATION); |
|
} |
|
- else if (warn_line_truncation == -1) |
|
- warn_line_truncation = 0; |
|
+ else |
|
+ { |
|
+ /* With -fdec, set -fd-lines-as-comments by default in fixed form. */ |
|
+ if (flag_dec && gfc_option.flag_d_lines == -1) |
|
+ gfc_option.flag_d_lines = 0; |
|
+ |
|
+ if (warn_line_truncation == -1) |
|
+ warn_line_truncation = 0; |
|
+ } |
|
|
|
/* If -pedantic, warn about the use of GNU extensions. */ |
|
if (pedantic && (gfc_option.allow_std & GFC_STD_GNU) != 0) |
|
diff --git gcc/testsuite/gfortran.dg/dec_d_lines_1.f gcc/testsuite/gfortran.dg/dec_d_lines_1.f |
|
new file mode 100644 |
|
index 00000000000..2cc7a01daff |
|
--- /dev/null |
|
+++ gcc/testsuite/gfortran.dg/dec_d_lines_1.f |
|
@@ -0,0 +1,9 @@ |
|
+! { dg-do compile } |
|
+! { dg-options "-ffixed-form -fd-lines-as-code -fdec" } |
|
+! |
|
+! Ensure -fd-lines-as-code is not overridden by -fdec. |
|
+! |
|
+ i = 0 |
|
+d end |
|
+ subroutine s |
|
+D end |
|
diff --git gcc/testsuite/gfortran.dg/dec_d_lines_2.f gcc/testsuite/gfortran.dg/dec_d_lines_2.f |
|
new file mode 100644 |
|
index 00000000000..31eaf5f2328 |
|
--- /dev/null |
|
+++ gcc/testsuite/gfortran.dg/dec_d_lines_2.f |
|
@@ -0,0 +1,8 @@ |
|
+! { dg-do compile } |
|
+! { dg-options "-ffixed-form -fdec" } |
|
+! |
|
+! Ensure -fd-lines-as-comments is enabled by default with -fdec. |
|
+! |
|
+d This is a comment. |
|
+D This line, too. |
|
+ end
|
|
|