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