1132718Skan! { dg-do compile }
2132718Skan! PR fortran/66045
3169689Skan!
4169689Skan! Original code from Gerhard Steinmetz
5169689Skan! <gerhard dot steinmetz dot fortran at t-online dot de>
6169689Skanprogram p
7169689Skan   contains
8132718Skan   integer :: null=null() ! { dg-error "NULL appears on right-hand side" }
9169689Skanend
10169689Skan