| ! RUN: %S/test_errors.sh %s %t %f18 | |
| module m1 | |
| integer :: x | |
| integer :: y | |
| integer :: z | |
| end | |
| module m2 | |
| real :: y | |
| real :: z | |
| real :: w | |
| end | |
| use m1, xx => x, y => z | |
| use m2 | |
| volatile w | |
| !ERROR: Cannot change CONTIGUOUS attribute on use-associated 'w' | |
| contiguous w | |
| !ERROR: 'z' is use-associated from module 'm2' and cannot be re-declared | |
| integer z | |
| !ERROR: Reference to 'y' is ambiguous | |
| y = 1 | |
| end |