repo.or.cz
/
llvm-project.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
[flang] Accept polymorphic component element in storage_size
[llvm-project.git]
/
flang
/
test
/
Parser
/
compiler-directives.f90
blob
1e6c67dff3c1cfeab2792cf16408036cf48776db
1
! RUN: %flang_fc1 -fdebug-unparse %s 2>&1
2
3
! Test that compiler directives can appear in various places.
4
5
!dir$ integer
6
module
m
7
!dir$ integer
8
use
iso_fortran_env
9
!dir$ integer
10
implicit integer
(
a
-
z
)
11
!dir$ integer
12
!dir$ integer=64
13
!dir$ integer = 64
14
!dir$ optimize:1
15
!dir$ optimize : 1
16
!dir$ loop count (10000)
17
!dir$ loop count (1, 500, 5000, 10000)
18
end