blob: 21c8ac3c7779fd905e0c62fc2509d3844b7f590b [file] [log] [blame]
! Demonstrates the Fortran 2008 CRITICAL construct
! Exercises R213, 810-812
! J. Overbey - 8 Dec 2009
implicit none
critical
end critical
name: critical
end critical
name: critical
end critical name
critical
endcritical
name: critical
endcritical
name: critical
endcritical name
!critical: critical
!end critical critical
end program