1! { dg-do compile } 2! PR fortran/66045 3! 4! Original code from Gerhard Steinmetz 5! <gerhard dot steinmetz dot fortran at t-online dot de> 6program p 7 contains 8 integer :: null=null() ! { dg-error "NULL appears on right-hand side" } 9end 10