begin
  recordformat fredfm (integer a, real b, integer c)
  record (fredfm) fred = 0
  ! NOT ALLOWED: %record (fredfm) %name fredp == 0
  ! NOT ALLOWED: %record (fredfm) %name fredp = 0
  record (fredfm) name fredp == RECORD(0)

  on event * start
    ! does not trap SIGSEGV !
    write(event_event,0); newline
    stop
  finish
  
  fred_a = 1; fred_b = 1.1; fred_c = 1
  write(fred_a,0); write(fred_c,3); newline
  fred = 0
  write(fred_a,0); write(fred_c,3); newline

  fredp == fred
  fred_a = 1; fred_b = 1.1; fred_c = 1
  write(fredp_a,0); write(fredp_c,3); newline

  fredp = 0
  write(fred_a,0); write(fred_c,3); newline

! NOT ALLOWED: fredp == 0
  fredp == RECORD(0)
  !write(fredp_a,0); write(fredp_c,3); newline ;! "Segmentation fault" as expected
endofprogram