1! { dg-do compile } 2! { dg-options "-Wall" } 3program main 4 print *,achar(-3) ! { dg-error "negative" } 5 print *,achar(200) ! { dg-warning "outside of range" } 6 print *,char(222+221) ! { dg-error "too large for the collating sequence" } 7 print *,char(-44) ! { dg-error "negative" } 8 print *,iachar("�") ! { dg-warning "outside of range" } 9end program main 10