1! { dg-do compile } 2! PR fortran/41940 3 4integer, allocatable :: a 5TYPE :: x 6 integer, allocatable :: a 7END TYPE 8TYPE (x) :: y 9 10allocate(a(4)) ! { dg-error "Shape specification for allocatable scalar" } 11allocate(y%a(4)) ! { dg-error "Shape specification for allocatable scalar" } 12end 13 14