1! { dg-do run } 2! PR 34980 - we got a segfault for calling shape 3! with a scalar. 4program main 5 integer :: n 6 n = 5 7 open(10,status="scratch") 8 write (10,*) shape(n) 9 close(10,status="delete") 10end 11 12