Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/protected_3.f90 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-options "-std=f95 -fall-intrinsics" } ! PR fortran/23994 ! ! Test PROTECTED attribute. Within the module everything is allowed. ! Outside (use-associated): For pointers, their association status ! may not be changed. For nonpointers, their value may not be changed. ! ! Reject in Fortran 95 module protmod implicit none integer :: a integer, target :: at integer, pointer :: ap protected :: a, at, ap ! { dg-error "Fortran 2003: PROTECTED statement" } end module protmod module protmod2 implicit none integer, protected :: a ! { dg-error "Fortran 2003: PROTECTED attribute" } integer, protected, target :: at ! { dg-error "Fortran 2003: PROTECTED attribute" } integer, protected, pointer :: ap ! { dg-error "Fortran 2003: PROTECTED attribute" } end module protmod2