Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr81027.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
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 program badarray
2 implicit none
3 integer:: j(3) = [1,2,3]
4 call doubling(j)
5 contains
6 subroutine doubling( n)
7 integer,intent(in)::n(:)
8 integer::m = size(n) ! { dg-error "Assumed-shape array" }
9 print *, m ! { dg-error "has no IMPLICIT type" }
10 end subroutine doubling
11 end program badarray