forked from OSchip/llvm-project
32 lines
386 B
Fortran
32 lines
386 B
Fortran
! RUN: %S/test_modfile.sh %s %t %f18
|
|
! Use-association with VOLATILE or ASYNCHRONOUS
|
|
|
|
module m1
|
|
real x
|
|
integer y
|
|
volatile z
|
|
contains
|
|
end
|
|
|
|
module m2
|
|
use m1
|
|
volatile x
|
|
asynchronous y
|
|
end
|
|
|
|
!Expect: m1.mod
|
|
!module m1
|
|
!real(4)::x
|
|
!integer(4)::y
|
|
!real(4),volatile::z
|
|
!end
|
|
|
|
!Expect: m2.mod
|
|
!module m2
|
|
!use m1,only:x
|
|
!use m1,only:y
|
|
!use m1,only:z
|
|
!volatile::x
|
|
!asynchronous::y
|
|
!end
|