Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/charlen_01.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! PR fortran/65173
kono
parents:
diff changeset
3 program min_obj
kono
parents:
diff changeset
4 implicit none
kono
parents:
diff changeset
5 integer, parameter :: a = 128
kono
parents:
diff changeset
6 type :: param_t
kono
parents:
diff changeset
7 integer :: n= 0
kono
parents:
diff changeset
8 real*8, dimension(256), allocatable :: x ! { dg-error "must have a deferred shape" }
kono
parents:
diff changeset
9 real*8, dimension(2,256), allocatable :: bounds ! { dg-error "must have a deferred shape" }
kono
parents:
diff changeset
10 character(a), dimension(256), allocatable :: names ! { dg-error "must have a deferred shape" }
kono
parents:
diff changeset
11 end type param_t
kono
parents:
diff changeset
12 contains
kono
parents:
diff changeset
13 subroutine extrace_params_from_section ( )
kono
parents:
diff changeset
14 character(*), dimension(), parameter :: & ! { dg-error "expression in array specification" }
kono
parents:
diff changeset
15 & char_params = ['element', 'parametrization']
kono
parents:
diff changeset
16 end subroutine extrace_params_from_section
kono
parents:
diff changeset
17 end program min_obj