diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/sizeof_proc.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/sizeof_proc.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/sizeof_proc.f90 b/gcc/testsuite/gfortran.dg/sizeof_proc.f90 index b4a2d73200..0a63537888 100644 --- a/gcc/testsuite/gfortran.dg/sizeof_proc.f90 +++ b/gcc/testsuite/gfortran.dg/sizeof_proc.f90 @@ -9,11 +9,11 @@ procedure(real) :: proc procedure(real), pointer :: pp pp => sin -print *,sizeof(proc) ! { dg-error "may not be a procedure" } -print *,sizeof(pp) ! { dg-error "may not be a procedure" } +print *,sizeof(proc) ! { dg-error "shall not be a procedure" } +print *,sizeof(pp) ! { dg-error "shall not be a procedure" } print *,sizeof(pp(0.)) -print *,sizeof(sub) ! { dg-error "may not be a procedure" } -print *,sizeof(func) ! { dg-error "may not be a procedure" } +print *,sizeof(sub) ! { dg-error "shall not be a procedure" } +print *,sizeof(func) ! { dg-error "shall not be a procedure" } print *,sizeof(func()) contains |