2 ! { dg-require-visibility "" }
3 ! This tests that PR32760, in its various manifestations is fixed.
5 ! Contributed by Harald Anlauf <anlauf@gmx.de>
7 ! This is the original bug - the frontend tried to fix the flavor of
8 ! 'PRINT' too early so that the compile failed on the subroutine
16 integer, intent(in
) :: i
20 integer, intent(in
) :: m
24 ! This version of the bug appears in comment # 21.
33 end subroutine volatile
36 ! This was a problem with the resolution of the STAT parameter in
37 ! ALLOCATE and DEALLOCATE that was exposed in comment #25.
44 integer, allocatable
:: s(:), t(:)
46 allocate(s(4), stat
=istat
)
49 end subroutine integer
52 ! This is the version of the bug in comment #12 of the PR.
59 integer, intent(in
) :: i
65 integer, intent(in
) :: m
75 print *, "in the main:", k