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