Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/parameter_array_ref_1.f90 @ 128:fe568345ddd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix CbC-example
author mir3636
date Wed, 11 Apr 2018 19:32:28 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
!
! PR fortran/32906 - Parameter array ... cannot be automatic or assumed shape
!
! Testcase contributed by Florian Ladstaedter <flad AT gmx DOT at>
!
program test_program
  integer, parameter :: len = 1
  integer, parameter :: arr(max(len,1)) = (/1/)

  character(len=*), dimension (1), parameter             :: specStr = (/'string'/)
  double precision, dimension (size(specStr)), parameter :: specNum = (/99.0d0/)
end