blob: 07c78f1a73cb3e5e27932f7dd729d765a146164f (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
!
! PR 50070: Segmentation fault at size_binop_loc in fold-const.c
!
! Contributed by Vittorio Zecca <zeccav@gmail.com>
subroutine sub
common n,z ! { dg-error "must have constant character length" }
integer :: n
character(len=n) :: z
end
|
