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