Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/charlen_01.f90 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 ! { dg-do compile } | |
| 2 ! PR fortran/65173 | |
| 3 program min_obj | |
| 4 implicit none | |
| 5 integer, parameter :: a = 128 | |
| 6 type :: param_t | |
| 7 integer :: n= 0 | |
| 8 real*8, dimension(256), allocatable :: x ! { dg-error "must have a deferred shape" } | |
| 9 real*8, dimension(2,256), allocatable :: bounds ! { dg-error "must have a deferred shape" } | |
| 10 character(a), dimension(256), allocatable :: names ! { dg-error "must have a deferred shape" } | |
| 11 end type param_t | |
| 12 contains | |
| 13 subroutine extrace_params_from_section ( ) | |
| 14 character(*), dimension(), parameter :: & ! { dg-error "expression in array specification" } | |
| 15 & char_params = ['element', 'parametrization'] | |
| 16 end subroutine extrace_params_from_section | |
| 17 end program min_obj |