1! { dg-do run }
2! { dg-options "-fcheck=pointer -fdump-tree-original" }
3! { dg-shouldfail "Fortran runtime error: Allocatable argument 'a' is not allocated" }
4! { dg-output "At line 13 .*" }
5! PR48958 - Add runtime diagnostics for SIZE intrinsic function
6
7program p
8  integer :: n
9  integer,  allocatable :: a(:)
10  integer,  pointer     :: b(:)
11  class(*), allocatable :: c(:)
12  integer               :: d(10)
13  print *, size (a)
14  print *, size (b)
15  print *, size (c)
16  print *, size (d)
17  print *, size (f(n))
18contains
19  function f (n)
20    integer, intent(in) :: n
21    real, allocatable   :: f(:)
22  end function f
23end
24
25! { dg-final { scan-tree-dump-times "_gfortran_runtime_error_at" 4 "original" } }
26