* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile

[official-gcc.git] / gcc / testsuite / gfortran.dg / storage_size_6.f90

! { dg-do compile }
! PR fortran/66043
!
! Original code from Gerhard Steinmetz
! <gerhard dot steinmetz dot fortran at t-online dot de>
program p
   print *, storage_size(null()) ! { dg-error "cannot be an actual" }
end