• This project
    • Loading...
  • Sign in

2020-2-capstone-design2 / 2015104175

%ea%b7%b8%eb%a6%bc1
Go to a project
Toggle navigation Toggle navigation pinning
  • Projects
  • Groups
  • Snippets
  • Help
  • Project
  • Activity
  • Repository
  • Pipelines
  • Graphs
  • Issues 0
  • Merge Requests 0
  • Wiki
  • Snippets
  • Network
  • Create a new issue
  • Builds
  • Commits
  • Issue Boards
  • Files
  • Commits
  • Network
  • Compare
  • Branches
  • Tags
Switch branch/tag
  • 2015104175
  • llvm-project
  • flang
  • test
  • Preprocessing
  • pp108.F90
  • 박우진's avatar
    Add llvm-project Codes · f0b8043f
    f0b8043f
    박우진 authored 2020-10-12 20:45:46 +0900
pp108.F90 318 Bytes
Raw Blame History Permalink
1 2 3 4 5 6 7 8 9 10 11 12 13 14
! RUN: %f18 -E %s 2>&1 | FileCheck %s
! CHECK: res = kwm
! ditto, but without & ! comment
      integer, parameter :: KWM = 666
#define KWM 777
      integer :: res
      res = KW&
M
      if (res .eq. 777) then
        print *, 'pp108.F90 yes'
      else
        print *, 'pp108.F90 no: ', res
      end if
      end