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