mirror of
https://github.com/nasa/fpp.git
synced 2025-12-11 19:23:13 -06:00
28 lines
375 B
Fortran
28 lines
375 B
Fortran
locate port P at "P.fpp"
|
|
locate port Q at "Q.fpp"
|
|
locate constant a at "a.fpp"
|
|
locate constant b at "b.fpp"
|
|
locate constant c at "c.fpp"
|
|
locate constant d at "d.fpp"
|
|
locate interface K at "k.fpp"
|
|
|
|
interface J {
|
|
import K
|
|
|
|
async input port p: [a] P priority b
|
|
}
|
|
|
|
interface I {
|
|
|
|
async input port q: [c] Q priority d
|
|
|
|
import J
|
|
|
|
}
|
|
|
|
active component C {
|
|
|
|
import I
|
|
|
|
}
|