| ! { dg-do compile } | |
| ! PR fortran/93635 | |
| ! | |
| ! Test that some attribute conflicts are properly diagnosed | |
| program p | |
| implicit none | |
| character(len=:),allocatable :: r,s | |
| namelist /args/ r,s | |
| equivalence(r,s) ! { dg-error "EQUIVALENCE attribute conflicts with ALLOCATABLE" } | |
| allocate(character(len=1024) :: r) | |
| end | |
| subroutine sub (p, q) | |
| implicit none | |
| real, pointer, intent(inout) :: p(:), q(:) | |
| namelist /nml/ p,q | |
| equivalence(p,q) ! { dg-error "EQUIVALENCE attribute conflicts with DUMMY" } | |
| end |