[Bug fortran/64124] [F95] Valid constant expr rejected

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64124

kargl at gcc dot gnu.org changed:

   What|Removed |Added

 Status|NEW |RESOLVED
 Resolution|--- |FIXED
   Target Milestone|--- |6.5

--- Comment #6 from kargl at gcc dot gnu.org ---
Fixed on 6-branch, 7-branch, and trunk.
Thanks for bug report.

[Bug fortran/64124] [F95] Valid constant expr rejected

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64124

--- Comment #5 from kargl at gcc dot gnu.org ---
Author: kargl
Date: Thu Mar  8 19:06:57 2018
New Revision: 258368

URL: https://gcc.gnu.org/viewcvs?rev=258368=gcc=rev
Log:
2018-03-08 Steven G. Kargl  

PR fortran/64124
PR fortran/70409
* decl.c (gfc_match_char_spec): Try to reduce a charlen to a constant.

2018-03-08  Steven G. Kargl  

PR fortran/64124
PR fortran/70409
* gfortran.dg/pr64124.f90: New tests.
* gfortran.dg/pr70409.f90: New tests.

Added:
branches/gcc-6-branch/gcc/testsuite/gfortran.dg/pr64124.f90
branches/gcc-6-branch/gcc/testsuite/gfortran.dg/pr70409.f90
Modified:
branches/gcc-6-branch/gcc/fortran/ChangeLog
branches/gcc-6-branch/gcc/fortran/decl.c
branches/gcc-6-branch/gcc/testsuite/ChangeLog

[Bug fortran/64124] [F95] Valid constant expr rejected

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64124

--- Comment #4 from kargl at gcc dot gnu.org ---
Author: kargl
Date: Thu Mar  8 19:01:23 2018
New Revision: 258367

URL: https://gcc.gnu.org/viewcvs?rev=258367=gcc=rev
Log:
2018-03-08  Steven G. Kargl  

PR fortran/64124
PR fortran/70409
* decl.c (gfc_match_char_spec): Try to reduce a charlen to a constant.

2018-03-08  Steven G. Kargl  

PR fortran/64124
PR fortran/70409
* gfortran.dg/pr64124.f90: New tests.
* gfortran.dg/pr70409.f90: New tests.

Added:
branches/gcc-7-branch/gcc/testsuite/gfortran.dg/pr64124.f90
branches/gcc-7-branch/gcc/testsuite/gfortran.dg/pr70409.f90
Modified:
branches/gcc-7-branch/gcc/fortran/ChangeLog
branches/gcc-7-branch/gcc/fortran/decl.c
branches/gcc-7-branch/gcc/testsuite/ChangeLog

[Bug fortran/64124] [F95] Valid constant expr rejected

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64124

--- Comment #3 from kargl at gcc dot gnu.org ---
Author: kargl
Date: Thu Mar  8 00:42:41 2018
New Revision: 258347

URL: https://gcc.gnu.org/viewcvs?rev=258347=gcc=rev
Log:
2018-03-07  Steven G. Kargl  

PR fortran/64124
PR fortran/70409
* decl.c (gfc_match_char_spec): Try to reduce a charlen to a constant.

2018-03-07  Steven G. Kargl  

PR fortran/64124
PR fortran/70409
* gfortran.dg/pr64124.f90: New tests.
* gfortran.dg/pr70409.f90: New tests.

Added:
trunk/gcc/testsuite/gfortran.dg/pr64124.f90
trunk/gcc/testsuite/gfortran.dg/pr70409.f90
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/decl.c
trunk/gcc/testsuite/ChangeLog

[Bug fortran/64124] [F95] Valid constant expr rejected

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64124

kargl at gcc dot gnu.org changed:

   What|Removed |Added

   Priority|P3  |P4
 CC||kargl at gcc dot gnu.org
   Assignee|unassigned at gcc dot gnu.org  |kargl at gcc dot gnu.org

--- Comment #2 from kargl at gcc dot gnu.org ---
I think my patch for PR 70409 also fixes this one.

[Bug fortran/64124] [F95] Valid constant expr rejected

[fxcoudert at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64124

Francois-Xavier Coudert fxcoudert at gcc dot gnu.org changed:

   What|Removed |Added

 Status|UNCONFIRMED |NEW
   Last reconfirmed||2014-11-30
 Blocks||32834
 Ever confirmed|0   |1

[Bug fortran/64124] [F95] Valid constant expr rejected

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64124

--- Comment #1 from Dominique d'Humieres dominiq at lps dot ens.fr ---
I see the error from 4.4.7 up to trunk (5.0 r218188). The error  goes away if I
replace

  character(len=kind(1)) x

with

  character(len=kind(1)), parameter :: x='abcd'

and gfortran compiles the following code

  character(len=kind(1)) x
  integer y(len(x),len(x))
  print *, shape(y)
  end